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-REM_ 
IDENTIFICATION 
PROOUCT ID: AC - TO99C -MC 
PRODUCT TITLE: Cv<iSOCO TSVOS CTRL LT4 
DECO/DEPO: 1.0 
DEPARTMENT : COMPUTER SPECIAL SYSTEMS/PPG 


DATE: JUNE 4, 1984 


THE INFORMATION IN — Bs yt IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL 
TION "OIGITAL EG EQUIPMENT CORPORATION ASSUMES NO 


EQUIPMENT CORPORA 

RESPONSIBILITY FOR ANY 

NO RESPONSIBILITY IS ASSUMED FOR 
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TABLE OF CONTENTS 
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PROGRAM ABSTRACT 

SYSTEM REQUIREMENTS 
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DIAGNOSTIC HIERARCHY PREREQUISITES 
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OPERATING INSTRUCTIONS 
COMMANDS . 
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DEVICE INFORMATION TABLES 

TEST SUMMARIES 

MAINTENANCE HISTORY 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


. IS A POP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF TSVOS AGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11//23 SYSTEM 
C0-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE g tg ENVIRONMENT . 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF a OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 

POP-11/23 PROCESSOR AND MEMORY 

CAUTION: tp gy 8 REQUIRES 32K WORDS OF MEMORY 

(26K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 

1.3 RELATED DOCUMENTS AND STANDARDS 

DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC -F348E -MC 
DATE: 14 ALY 1960. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1962 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 


DATE: AUGUST 1962 


4. TSVOS5 am ig A rt INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 


DATE: AUGUST 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP- ) 
1.5 ASSUMPTIONS 
ALL HARDWARE EXCEPT Tite HARDWARE UNDER TEST iS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 
i aay BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA,CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC oor. —- ay 
S AND GIVES A VERY 


(SUPERVISOR). THIS SECTION LISTS THE COMMAND 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST TIHAT WAS INTERRUPTED (AFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

a RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY! ) 


ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 
DEACTIVATE A UNIT 


DROP 

PRINT PRINT STATISTICAL pag te CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE en so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “STAR 


SEQ 0004 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
og oo —— MANUAL, DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY 
Ss , 


BOOT THE DIAGNOSTIC XXDP MEDIA 


.R vTSD?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CvTS0-8-0 

#eeeTSVOS LUGIC DIAGNOSTICeees 

iy IS TSVOS 

> 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ont  #. LEGAL 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD" 
SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1, 3 7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS :DD000 as ODODDD PASSES (DDD00 = 1 TO 64000) 


/FLAGS:FLGS T SPECIFIED FLAGS. FLAGS ane DESCRIBED 
IN SECTION 2.3. 
7EOP : 00000 REPORT END OF PASS MESSAGE AF = EVERY 


DOOOD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS: 1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
XECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE“ PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


SEQ 0005 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO . . CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AF nea tase COMMAND UNLESS SET USING THE 


ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS SFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IERs INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR 


TYPE, NUMBER, PC, TEST AND UNIT) 

IXEs INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX yoy 

PRI DIRECT MESSAGES TO LINE PR 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOST aS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUT 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. /0U MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 
2.4 HARDWARE QUESTIONS 
WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY Loa ty tg Ae HW (L) 2?” 
YOU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE STE UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
OF UNITS CIN DECIMAL). 
AFTER INITIAL STARTING OF THE PROGRAM (START = yes TO THE OIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE CRERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y” CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR L = nereen | BE Rg ‘ & 


WILL BE T IF ONLY 
A “(0)” INA a INDICATES THAT A DECIMAL NUMBER IS 
RE! we RESPONSE . “(0)” INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN “(L)” INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y” FOR YES, “N” FOR NO. 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADORESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMEER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 


USER DOCUMENTATION 


MACRO M1113 14-JUN-84 16:41 SEQ 0008 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIF Ic 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING. 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, me OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 


ITERATIONS. > 
2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_ TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 


ANSWER ALL QUE 
o TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


iy a> page | . MORE EFFICIENT METHOD, SUPPOSE a ARE TESTING 

A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS ae a dh ATTACHED ag IT. 
THESE UNITS ARE atv a BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE P. ano be gB. hg! CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE O OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE ¥Y11 WITH EIGHT UNITS. 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
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Q-FACTOR (0) 0 ? «CR» 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 5S 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


T7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTUR (0) 1? <CR> 


S GIVEN. BE C 


MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT” THE 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET‘S a THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


FEATURE 


@ UNITS (0) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ 08 ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ?  2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


J] 


HE HARDWARE PARAMETERS 


PROCEDURE SHOWN IS 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 


SEQ 0009 
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BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST oaerue 


ME SERV CE 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND S WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SS at 


BE AND 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (0) ? 8<CR> 

UNIT 1 

CSR AVORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0.1.0....1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


a 
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2.7 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XxXDP. 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUES’TTONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE “START” 

. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 

ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “CHANGE SW” QUESTION WITH “N” 

SIT OE a Oe SS EEE 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 


vu oO YW ® 


THERE ARE THREE 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 


ARE ALWAYS PRINTED UNLESS THE “IER™ FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXxxXx 
ERROR MESSAGE 


ptm —~ Bed ye 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC: XXXXXX © ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE . 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS oy: CONTENTS OR GOOD/BAD DATA. THESE ARE ALWA 


YS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXE” FLAGS ARE SET = @.33. 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL E 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


SEQ 0011 
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3.2 SPECIFIC ERROR MESSAGES 


E ERRGR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 


BELOW ARE SAMPL 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAPPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 

THE THIRD PART IS THE EXPECTED AND RECEIVED 


oo ee: REGISTER OR STATUS WORDS. 


TST: O16 FIFO EXERCISER TEST 


CVTSO HRD ERR 01610 ON UNIT OO TST 016 SUB O02 PC: 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNWALS IN WORD 66: - DESIGNATOR 
PARERR<15> IEOT <12> IFM <9 IRDY<6> 


TE 


<BIT @> 
TRWD<2> 
IFBY<1> 
IfeT<O> 


ERROR MESSAGE EXAPPLE 2 


THIS —s SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE.IN TF 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


MAY BE OEFECTIVE. 


CVTSO HRD ERR 00159 ON UNIT OO TST 001 SUB 005 PC: 026202 
COMMAND 


TSS@ MOT CORRECT AFTER SPACE RECORDS 
TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINA 


TION CLASS CODE = UNRECOVERABLE ERROR 
SS = 026420 


140010 
000010 
000000 
000024 


HE 
“i 


000624 


SES 9012 
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ERRCA MESSAGE EXAPPLE 5 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING 4 REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSD HRD ERR 00121 ON UNIT OO TST 001 SUB O02 PC: 02353506 ; 
MOT BIT (XSTO) NOT SET OURING REWIND (EXTENDED FEATURES MODE) | 
EXPD: 000312 RECV: 000112 KOR: 000200 
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4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11/23) 


OR>STA/FLA:PNT : HOE 

UNITS (0) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: 001 SKIP TAPE MARKS TEST 

TST: O02 NO-OP AND INITIALIZE TEST 

TST: O03 ERASE AND OPERATION INCOMPLETE TEST 
TST: 004 DATA PARITY TEST 

TST: OOS TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE FUNCTIONS TEST 

TST: 007 RECORD BUFFERING TEST 

TST: 006 FUNCTION TIMING TEST 


0 ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN — OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES ARE 
TO BE USED AS GUIDE. THE TIMING WAS DONE ON A POP-11/23 
PROCESSOR WITH A LAse CONSOLE . 


THE PROGRAM RUNS Iti TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED By 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/I NUMBER DEF 
NUMBER SECS. ITER SECS. 
1 1 2 1 
2 1 1 0 


SEQ 0014 


Nan nnneerrnnn eee ease me taacaaaacaaacaaaaaaaaaaaaaaaaaaaaasaaaacaasacasaaaaaamaaaaaaaaamaaamaaamasaasaaaaaaaacaamaaaaaaacaasaaaaaaaaaaaaaaaaaaaaamasaamasaaaaaaasaaaaaaamaasaaaacaaaasammaaaaaaal 
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3 1 1 0 
4 1 i 0 
5 1 1 0 
& 1 1 0 
? 1 1 0 
A 1 1 0 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 15 SECONDS 
DEFAULT 16 SECONDS 


5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE se REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE Hw (L) ? 


@ UNITS (0) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADORESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADORESS OF INTERRUPT 
VECTOR> 


} 
| 
| 
| 
THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF | 
UNITS (CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 

j 

| 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
ee CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 
INHIBIT ITERATIONS (L) N ? 
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6.0 TEST SUMMARIES 


WRITE TAPE MARK RETRY 


THIS TEST VERIFIES PROPER yt age OF THE WRITE TAPE MARK RETRY COMMAnD (SPACE 
REVERSE, ERASE, WRITE TAPE MARK 


: SKIP TAPE MARKS 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL OF ALL CUMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 


: NO-OP (“CLEAN TAPE”) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP (“CLEAN TAPE“) AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


: ERASE AND OPERATION INCOMPLETE 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 


: DATA PARITY TEST 


THIS meas VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE 
IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE AND CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 


: OPERATIONS AT EOT 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
pon CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


SEQ 0016 


USER DOCUMENTATION 


TEST 8: 


TEST 9: 
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RECORD BUFFERING 


THIS TEST gt THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 

CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
96 CONTROLLER 


SENSE OF HE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 


FUNCTION TIMING 


THIS TEST VERIFIES THAT THE TAPE ar on SEEMS TO BE WRITING 
RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. orn 
AND HIGH SPEED MODES ARE Lig It Is .¥ VERIFIED THA 

SKIP TAPE MARKS COMMAND WITH A COUNT OF 6 OF MORE, OPERATE. THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 

REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. he TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 


7.0 MAINTENANCE HISTORY 
REVISION A - MARCH 1962 
REVISION B - APRIL 1963 
XED TWO PROBLEMS, ONE IN TEST 1 AND THE 
OTHER IN TEST 8. 
REF. DOYLE TO GRASKY “TSVO5 CVTSDA DIAGNOSTIC 
PATCH”; 23-DEC-82. 
REVISION C - JUNE 1984 


MINOR CHANGES FOR “ORION” CPU 
ELIMINATED CPU ID MESSAGE. 


' 
n 
Lan! 


SEQ 0017 





TSV2 - PROGRAM HEADER 


002040 002124 


Fe 
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-TITLE TSV2 - PROGRAM HEADER 
-SBTTL PROGRAM HEADER 


-MCALL SVC 
svc ; INITIALIZE SUPERVISOR MACROS 


LC | 
“NLIST BEX,CND | 
' ABS, AMA | 


TSV2 
TSVe:: 


zoe 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

: -- 


POINTER BGNSW,BGNSFT ,BGNAU, BGNDU , BGNRPT 
HEADER CVvTSO.C,0,655..0 


| 
LSNAME: : sOIAGNOSTIC NAME 
.ASCII /C/ | 
ASCII /vV/ 
ASCII /T/ 
II /S/ | 
ASCII /0/ 
BYTE 0 
.BYTE 0 
.BYTE 0 
LSREV:: sREVISION LEVEL 
‘ I eT 
L$DEPO: : 30 
-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 
-WORD O 
LSTIML:: ;LONGEST TEST TIME 
-WORD 655. 
LSHPCP: : sPOINTER TO H.W. QUES. 
.WORD LSHARD 
LSSPCP: : sPOINTER TO S.W. QUES. 
. WORD L¢SOFT j 
LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
-WORD LS$HW 
LSSPTP:: sPTR. TO S.W. PTABLE 
-WORD LS$SW 
L$LADP: : sDIAG. END ADDRESS 
. WORD L$LAST 
LSSTA sRESERVED FOR APT STATS 
. WORD 0 
L$CO:: 
. WORD 0 
L&DTYP:: sDIAGNOSTIC TYPE 
-WORD O 
LSAPT: ; ;APT EXPANSION | 
. WORD 
LSOTP:; sPTR. TO DISPATCH TABLE | 
.WORD _ L$DISPATCH | 
L$PRIO: : sDIAGNOSTIC RUN PRIORITY 
| 
| 


ae uO Bei een ake Sega eee el 
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PROGRAM HE 


ADER 
002042 000000 . WORD 
002044 LSENVI:: 
002044 000000 . WORD 
002046 LSEXP1:: 
002046 000000 . WORD 
002050 LSMREV:: 
002050 003 .BYTE 
002051 003 BYTE 
002052 LSEF:: 
002052 000000 . WORD 
002054 000000 . WORD 
002056 L$SPC:: 
002056 000000 . WORD 
002060 LSDEVP: : 
002060 003374 . WORD 
002062 LSREPP: : 
002062 022700 . WORD 
002064 LSExP4:; 
002064 000000 . WORD 
002066 LSEXPS: : 
002066 000000 WORD 
002070 LSAUT:: 
002070 022366 . WORD 
002072 L$DUT:: 
002072 022464 . WORD 
002074 L$LUN:: 
002074 000000 . WORD 
002076 LSDESP: : 
002076 003402 . WORD 
002100 L$LOAD: : 
002100 104035 EMT 
002102 LSETP:: 
002102 000000 . WORD 
002104 LSICP:: 
002104 021572 . WORD 
002106 LSCCP:: 
002106 022652 WORD 
002110 LSACP:: 
002110 022572 . WORD 
002112 L$PRT:: 
002112 021562 . WORD 
002114 LSTEST:: 
002114 000000 WORD 
002116 LSDLY:: 
002116 000000 . WORD 
002120 LSHIME: : 
002120 000000 . WORD 


G2 
c 
ie) 
P sFLAGS DESCRIBE HOW IT WAS SETUP 
9 sEXPANSION WORD 
3SVC REV AND EDIT @ 
CsREVISION 
CsEDIT 
sDIAG. EVENT FLAGS 
0 
; POINTER TO DEVICE TYPE LIST 
LSOVTYP 
sPTR. TO REPORT CODE 
L$RPT 
(?) 
0 
sPTR. TO ADD UNIT CODE 
L$AU 
seni sPTR. TO DROP UNIT CODE 
7 3LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
s sPOINTER TO ERRTBL 
3PTR. TO INIT CODE 
L$INIT 
;PTR. TO CLEAN-UP CODE 
LS$CLEAN 
sPTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
LS$PROT 
. ;TEST NUMBER 
‘ ;DELAY COUNT 
‘ 3;PTR. TO HIGH MEM 


SEQ 0019 


TSV2 - PROGRAM HEADER 
DISPATCH TABLE 


39 
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-SBTTL DISPATCH TABLE 


zee 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

eas 


DISPATCH 9 
LSDISPATCH: : 
“WORD Tl 





TSV2 - PROGRAM HEADER 


DEFAULT HAROWARE P-TABLE 


000003 


172520 
000224 
000200 
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-SBTTL DEFAULT HARDWARE P-TABLE 


*¢ 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
:; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
gee 


BGNHW = OF PTBL sDEFAULT HARD-P-TABLE 
.WORD 10000-L $HWw/2 

L$HW: : 

DFPTBL: : 
WORD 172520 ; 1ST (OF 2) REGISTERS. 
-WORD 224 ; INTERRUPT VECTOR 
.WORD  PRIO4 ; INTERRUPT PRIORITY. 
ENOHW 

L10000: 


SEQ 0021 


TSV2 - PROGRAM HEADER 


SOFTWARE P-TABLE 


Je 
Ve 
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-SBTTL SOFTWARE P-TABLE 


3° 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


$ -- 
BGNSW = SFP TBL 
-WORD 110001-L8SW/2 


L$SW:: 
SFPTBL:: 
TRANSTST: : . WORD 0 ; ENABLE TEST OF TRANSPORT(S) IF #1 
NOITS:: -WORD O ; INHIBIT ITERATION OPTION. 
: ... O * ITERATE. 
; ...-NZ = INHIBIT ITERATE. 
LERRMAX: : . WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
GE Xs: -WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
ENOSW 
L10001: 
ENDMOD 


SEQ 0022 
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SOFTWARE P-TABLE 


20 002170 
002170 





MACRO M1113 





Ke 


14-JUN-84 16:41 SEQ 0023 


-TITLE TSV3 - GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD TSV3 
TSV3:: 


-SBTTL GLOBAL EQUATES SECTION 


; "THE GLOBAL EQUATES SECTION por PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TES 
3 -- 


EQUALS ; GET STANDARD EQUATES. 
; 
; BIT DIFINITIONS 
; 
BIT15== 100000 


; EVENT FLAG DEFINITIONS 
s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; 

EF .START== 32. ; START COMMAND WAS ISSUED 

EF .RESTART== 31. ; 

EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
29. ; A NEW PASS HAS BEEN STARTED 

EF .PWR== 26. ; A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 





TSV3 - GLOBAL 


AREAS 
GLOBAL EQUATES SECTION 


33 
34 002170 
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s 

PRIO7== 340 
PRIO6*= 300 
PRIOS== 240 
PRIO4*= 200 
PRIOS== 140 
PRIO2== 100 
PRIO1*= 40 
PRIOO== 0 

3 

;OPERATOR FLAG BITS 
: 

EVL== 4 
LOT*= 10 
ADR== 20 
IDu== 40 
ISR== 100 
UAM= = 200 
BOE== 400 


KT1i1l ee 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
s#KT11 VECTOR ADDRESS 


MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


UIPORi= 177602 
UIPDR2= 177604 
UIPDRS* 177606 
UIPOR4= 177610 
UIPORS= 177612 
UIPOR6= 177614 
UIPOR7= 177616 
.IF NB 

s@USER “D” PAGE DESCRIPTOR REGISTORS 
UDPORO= 177620 
UDPORI= 177622 
UDPDOR2= 177624 
UDPORS= 177626 
UDPOR4= 177630 
UDPORS= 177632 
UDPDR6= 177634 
UDPDR7= 177636 
- ENOC 





SEQ 0024 


| 
| 
:DEFINE MEMORY MANAGEMENT REGISTERS 
| 
| 
| 
| 





TSv3S - 
MEMORY 


GLOBAL 
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AREAS 
MANAGEMENT DEFINITIONS 


s@USER “I” ham ADDRESS REGISTERS 


-IF NB 
;*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
IPORO 


IF 8 
s*@SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SOPODRO 


-ENDC 
s@SUPERVISOR “I” PAGE ADDRESS REGISTERS 
IPARO= 


IF 
eS tas “0” PAGE ADDRESS REGISTERS 


SEQ 0025 





~ 
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MEMORY MANAGEMENT DEFINITIONS 


SOPAR4= 172270, 
SOPARS= 172272 
SOPAR6= 172274 
SOPAR7= 172276 
-ENDC 


-ENDC 
;@KERNEL “I” PAGE DESCRIPTOR REGISTERS 


172300 KIPORO= 172300 
172302 KIPORI= 172302 
172304 KIPOR2= 172304 
172306 KIPORS= 172306 
172310 KIPOR4= 172310 
172312 KIPORS= 172312 
172314 KIPOR6= 172314 
172316 KIPOR7= 172316 
-IF NB 
s@KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KDPORO= 172320 
KDPDRi= 172322 
KDPOR2= 172324 
KDPORS= 172326 
KDPDR4= 172330 


KDPORS= 172332 
KDPORG= 172334 
KDPOR7= 172336 


. ENOC 
;*KERNEL “I” PAGE ADDRESS REGISTERS 


172340 KIPARO= 172340 
172342 KIPARI« 172342 
172344 KIPAR2= 172544 
172346 KIPARS= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 ayy 172356 
ee = PAGE ADDRESS REGISTERS 
KOPARI= 172362 
AR2= 172364 





— <_< 


TSVS_- GLOBAL 


MACRO M1113 14-JUN-84 16:41 


AREAS 
TSVOS REGISTER AND PACKET DEFINITIONS 


177520 


; 
: SOME GENERAL EQUATES. 


ERRVEC== 
TTIVECe= 
TTICSRe= 
TTIBFRe= 
BOVPCR== 


—B3 


TSVOS REGISTER AND PACKET DEFINITIONS 


s PCINTER TO ERROR VECTOR FOR BUS TIME OUT. 
s INTERRUPT VECTOR FOR CONSOLE INPUT 

s BUS ADDRESS OF CONSOLE INPUT 

s CONSOLE INPUT DATA BUFFER 

s BOV11 PAGE CONTROL REGISTER 


3¢ 
sB1T DEFINITIONS FOR TSSR REGISTER 


SC= B1T15 

BIE- BIT14 

SCE= BIT13 

RMR= BITi2 

NXM= BIT11 
BI 


NBA= T10 
HIADOR= BIT9!BITS 


SSR= BIT7 


OFL= BIT6 
FATERR= BIT4!BITS 
TERCLS* BITS!BIT2:6IT1 


3¢ 


3¢ 


sSPECIAL CONDITION 
BUS INTERFACE ERROR 


sOFF LINE BIT 
HFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


; 
a FOR EXTENDED STATUS REGISTER 0 


TAPE MARK + Sage Sa - 


’ ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED DRIVE 
SWRITE LOCKED 
sBEGINNING OF TAPE 
sEND OF TAPE 


SEQ 0027 
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TSvOoS “REGISTER AND PACKET DEFINITIONS 

91 te 

9e ;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 

93 3(xST1) 

24 :- 

95 100000 X1.0.T «= BIT15 sDATA LATE 

96 040000 Re . SANE ® tik sNOT USED 

97 X1.COR «© BIT13 sCORRECTABLE DATA ERROR 

28 017375 X1.MBZ = BIT12-BIT11+B1110-B1T9+BIT7 -B116-B1TS-BIT4-BIT3-B1T2+B170 sALWAYS O 
99 000400 X1.RBP = BITS sREAD PARITY ERROR 
100 000002 X1.UNC «© BIT1 SUNCORREC TABLE DATA OR HARD ERROR 
101 
102 3° 
103 38IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
104 3(xXST2) 
105 3- 
106 100000 X2.0PM = the sOPERATION IN PROGRESS (TAPE MOVING) 
107 040000 x2.RCE = BIT1 3;RAM CKSUM ERROR 
108 035400 X2. SPARE= BIT1$-BIT12-B1111 -BIT9-61T8 sNOT USED BY TSVOS (ALWAYS=0) 
109 002000 X2.WCF = BIT1O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
110 000200 X2.EXTF = BIT7 iIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
111 000100 X2.BUFE = aor 3IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
112 000077 X2.REV = sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
is 000007 X2.UNIT = Srre-BIT1-BITO" sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
14 
115 3° 
116 :BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
+h 3(xXST3) 

t- 

119 177400 X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
120 X3.SPARE*= BIT7 sNOT USED BY TSVOS 
121 000100 xX3.0PI = BIT6 sOPERATION INCOMPLETE 
122 000040 X3.REV = BITS sREVERSE 
123 000020 X3.TRF «= BIT4 3s TRANSPORT RESPONSE FAILURE 
124 000010 x3.0CK = BITS sDENSITY CHECK 
125 000006 X3.MBZ *BIT2-BIT1 sNOT USED ALWAYS 0 
1 000001 X3.RIB = BITO sREVERSE INTO BOT 
128 se 
129 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
in 3(XST4) 

1 s- 
132 100000 x4.HSP = BIT1S5 s4IGH SPEED 
133 040000 xX4.RCE = BIT14 ‘Thee COUNT EXCEEDED 
134 020000 X4.TSM = BIT13 TRANSPORT SPECIAL MODE 
135 017400 X4.MBZ = 81712-61711 -81T10-8179-8178 sNOT USED ALWAYS O 
443 000377 X4.WRC = 000377 WRITE RETRY COUNT FIELD 
138 3¢ 
139 ; 
ie sTSSR TERMINATION CODES (BIT 0-2) 

3 

142 a 
143 
144 000006 TSREJ= 302 ;COMMAND REJECTED 
145 000006 UNREC= 6 sUNRECOVERABLE ERROR 
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TSVOS REGISTER AND PACKET DEFINITIONS 


14” 
148 
149 
150 
151 
152 
153 000000 
1s4 000000 
155 000001 
156 000001 
iS7 000002 
156 000003 
159 
160 
161 
162 
163 000003 
164 
165 
166 
167 
168 000017 
169 000013 
170 000012 
171 000011 
172 000010 
173 000006 
174 000005 
175 000004 
176 000001 
177 
176 
179 
180 
161 100000 
1862 040000 
183 020000 
184 010000 
165 007400 
166 000200 
187 000140 
188 000037 
189 
190 
191 
192 000000 
193 000400 
194 001000 
195 
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;DEVICE REGISTER OFFSETS 


+ 
4 
® 
wre OO 


1 TSOB/TSBA REGISTER 


sTSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
sTSSR REGISTER HIGH BYTE 


3° 

s TSOB ADDRESS BIT DEFINITIONS 

= 

A1l716 = => BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 


3° 
s COMMAND DEFINITIONS 


3 a 
P.GETSTAT 


17 sGET STATUS 

13 s INITIALIZE 

12 sCONTROL COMMANDS 
sFORMAT 


10 :POSIT ION 
4 eo WRITE 


’ 
a sWRITE CHARACTERISTICS 
1 sREAD 


| Tad 
; COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BIT15 sQUFFER AVAIL FOR CONTROLLER 
P.CvC «= BIT14 sCLEAR VOLUME CHECK 
P.OPP «= BIT13 sREVERSE SEQUENCE OF DATA BITS 
P.SWwB = BIT12 sSWAP BYTES IN MEMORY 
P.MODE = eIT11:81710:611916178 sEXTENDED COMMAND MODE FIELD 
PIE * BIT7 sINTERRUPT ENABLE 
P.FMT= BIT6!BITS IPACKET HEADER TYPE (ALWAYS=0) 
P.CMmD «= 37 sMAJOR COMMAND FIELD 
t¢ 
: CONTROL COMMAND MODE CODES 
t- 
PC .RELEASE =» 00256. sRELEASE BUFFER 
‘ # 16256. sREWIND 
.NOOP * 20256. 3NO-OP 
PC. IEREW » 40256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE » 50256. sSECURITY ERASE 


SEQ 0029 
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TSVCS REGISTER AND PACKET DEFINITIONS 


2 ES eee ee ee ee oe ee oe = a ; 


E 4 


SEQ 0030 


"CONTROLLER RAM DEFINITIONS 


000167 RMCHBEG * 167 
000200 RMCHEND = 200 
000201 RMPKTBEG= 201 
000210 RMPKTEND= 210 
000215 RMMSGBEG= 215 
000234 RMMSGEND= 234 


sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
ee pit 10 at END RAM ADDRESS 
sCOMMAND PACKET BEGIN RAM ADDRESS 


1 COMMAND PACKET 


sMESSAGE BUFFER END RAM 


sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


000006 xSTO#= 6 
000010 xSTi== 6. 
000012 xST2*= 10. 
000014 xST3*= 12. 
000016 KST4*= 14, 


3¢ 


sEXTENDED STATUS REGISTER 
sEXTENDED STATUS REGISTER 
sEXTENDED STATUS REGISTER 
sEXTENDED STATUS REGISTER 
sEXTENDED STATUS REGISTER 


2unwreo 
@SxranUVea 
se ee 


; 
;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


000002 PKLOW 
000004 PKHI 
000006 PKBCNT 
000010 EXBCNT=10 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3? 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


000000 BSELO 
000001 BSEL1 
000002 SEL2 
000004 SELDATA 


erro 


;B8YTE O 
sBYTE 1 
sWORD 2 


RAM ADDRESS 
sMESSAGE BUFFER BEGIN RAM ADORE Ss 
sWORD 3 
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TSVOS REGISTER AND PACKET DEFINITIONS 


239 

240 

241 

242 000000 

243 000001 

244 000002 

245 000003 

246 000004 

247 000005 

248 000006 

249 000007 

250 000010 

251 000011 

252 000020 

253 000021 
000022 

255 000023 

256 000024 

257 

258 

259 

260 

261 000200 

262 000100 

263 000040 
000020 

265 000010 

266 000004 

267 000002 

268 000001 

269 

270 

271 

272 

273 000200 

274 000100 

275 000040 

276 000020 

277 000010 

276 000004 

279 000002 

280 000001 

261 

262 

283 

284 

265 000200 

266 000020 

287 000010 

288 000006 

289 000001 
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Fc 


2 


3° 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


NOUS wre OO 


7 
-o 


RAVLS 


300 MICROTEST 


sDISABLE MICROTEST 11 ANDO 1 


sREAD EXT. TAPE STATUS CNOT * SUPPORTED BY ALL TRANSPORTS 


3¢ 
s;BSEL1 CODES FOR WRITE TAPE CONTROL 
sIFAD - FORMATTER ADDRESS 


wr. IMISP 
WF. IWRT 


3¢ 
sBSEL1 CODES FOR WRITE 


BIT7 
BIT4 


BITS 
BIT2!:BIT1 
BITO 


FORMAT 


- TRANSPORT ADDRESS BIT 0 
- TRANSPORT ADDRESS BIT 1 
sIRESVS - RESERVED 95 
- REWIND 
- REWIND AND UNLOAD 


sIFEN FORMATTER ENABLE 
3GO0 

sIHISP - HICH SPEED 

sIWRT - WRITE 

s IREV - REVERSE 

:IWFM - WRITE FILE MARK 
sIEDIT - EDIT 

sIERASE - ERASE 

sIRESV3S - RESERVED @3 
sIRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 
sINVERT SENSE OF EXTENDED FEATURES SWITCH 
RRORR 


sRESET FIFO AND INPUT PARITY E 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
sATTENTION TRIGGER FIELD 


s;RESET TIMER 


A,6 THEN DELAY TIMES IN SEL2 


SEQ 0031 
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AREAS 
TSVOS REGISTER AND PACKET DEFINITIONS 


3¢ 
; MS.ATTN SUBCODES 
:- 


sNO-OP (NOTHING TRIGGERED ) 

sSIMULATE ON-LINE/OFF-LINE TRANSISTION 
sFORCE NON-FATAL 

iFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


SEQ 0032 


RAM ERROR (FORCES ERRCODE 54) 


3¢ 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


NP.IR = BIT7 
NP ..OUT = BIT6 
NP ..LOOP * BITS 
NP . WRP = BITS 


s INTERRUPT REQUEST (0-1 
sTAPE DATA DIRECTION ouT (O= 
E TRANSPORT LOOPBACK 


ENABL 


;¢ 
: READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


S2.0IM = BIT7 
S2.ILW * BIT6 
S2.0UTRODY = BITS 
- INROY = BIT4 
S2.ATIMR = BITS 
S2.BTIMR = BIT2 
- UNDEF * BIT1+BITO 
$1.PARIN * BIT15 
$1. I2RESV * BIT14 
$1. I1RESV = BIT13 
IEOT * BIT12 
$1. IT IDENT = BIT11 
i. ICER = BIT10 
$1. IF MK = BITS 
$1. IHER = BITS 
SO. ISPEED = BIT7 
. IRDY = BIT6 
SO. IONL = BITS 
SO. ILOP = BIT4 
SO. ID6Y = BITS 
SO. IRWD = BIT2 
SO. IFBY * BIT1 
SO.IFPT = BITO 


C UNDEFINED ) 
WORD #6 BYTE 1 


WORD @6 BYTE O 


sWORD 09 BYTE 2 wt IN MISS 


OUT ROY H 
IN ROY 4 


TRANSITION) 
IN) 


sWRITE CORRECT PARITY (SET*O TO WRITE WRONG) 


TIMER A FLAG H 
TIMER B FLAG H 


nn i a - e | ee ee + ee 


TSV3_- GLOBAL AREAS MACRO M1113 14-JUN-64 16:41 
SPECIAL MACROS AND OPDEFS. 


333 .SBTTL SPECIAL MACROS AND OPDEFS. 

334 

335 ;¢ 

336 ;SAVE GENERAL REGS 1 TO 5 

337 j= 

338 

339 -MACRO SAVREG 

340 JSR RS ,REGSAV 

341 . ENOM 

342 

343 3¢ 

444 : MACRO TO FORCE AN ERROR 

345 3- 

346 -MACRO FORCERROR TAG,NOTSSR 

347 -NLIST 

348 .IIF NOF LISTALL, .NLIST 

349 LIST 

350 .IF 8 NOTSSR 

351 MOV TSSRC(RS),R1 sREAD TSSR 

352 . ENOC 

353 MOV FORCER ,FORCES :IS FORCER SET? (LEAVE C BIT ALONE) 

354 BNE TAG ;8R IF YES 

355 -NLIST 

356 .IIF NOF LISTALL, .LIST 

357 LIST 

358 

360 

361 * MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

362 3 WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

363 ; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

364 PF Ay TO 177777 

— 3 FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
ge 

367 -MACRO FORCEXIT TAG 

368 -NLIST 

369 -IIF NDF LISTALL, .NLIST 

370 LIST 

371 MOV FORCER ,FORCER 3IS FORCER NEGATIVE? 

372 BMI TAG 3;6R IF YES 

373 -NLIST 

374 -IIF NOF LISTALL, .LIST 

375 LIST 

376 

377 

hn * MACRO TO INCREMENT ERROR COUNTS 

380 * MACRO NEXT. ERRNO 

381 NLIST 

382 aT? IIF NOF LISTALL, .NLIST 

383 ERRNO=ERRNO+1 

384 333-1IF NOF LISTALL, .LIST 

385 -LIST 


386 - ENDM 


SEQ 0033 
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407 002170 000000 


MACRO M1113 


14-JUN-64 16:41 


;MACRO TO PERFORM XOR 


«MACRO XOR A,B 


MOV A,-(SP) 
BIC 8, (SP) 
BIC A.B 
BIS (SP)+.B 
. ENOM 


EN=0 s INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED = THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH 


BY THE MACRO “IFERROR”). AN ERROR NE 


FORCER: : 0 s FORCE TYPE ALi HARD ERRORS (THE op at CALLED - 
3 
; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 





SEQ 0034 


423 002174 
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SEQ 0035 


-SBTTL GLOBAL DATA SECTION 


{THE GLOBAL ae wer CONTAINS DATA THAT ARE USED 


:IN MORE THAN 


g-e 


; 
3; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


PCEEEEEEEEEEEEEE 


BEE COSCO SSSO_E SSOSSSSoeee 


338 


hick! 
= 


PS EEEEEEE 


0 
0 


sPRINT SWITCH 


INTERRUP ORITY. 

sNUMBER OF TES’S RUN IN THIS PASS 
sREMAINING ITERATION COUNT FOR TEST 
sNUMBER OF DEVICE UNDER TEST 

sSET IF FATAL ERROR IS DETECTED IN TEST 
sSET IF TAPE INTERRUPT WAS RECEIVED 
sEXTENDED FEATURES SOFTWARE SW O=OFF;1=0N 
sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECE RAM DATA FOR PRAMPKT ROUTINE 


sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
SRAM DATA SIZE FOR PRAMPKT ROUTINE 

sRECEIVED BUFFER HIGH ADDRESS 

sRECEIVED BUFFER LOW ADDRESS 

sTEST COUNT PATTERN 

sTEST DATA 

sTEST FLAG WORD 

i n'y he cg 


sPRI INE TEMP 

sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
; TEMPORARY STORAGE FOR PRINT 
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TSTBLK - TEST DATA TABLE 

452 .SBTTL TSTBLK - TEST DATA TABLE 
453 j 
nn i¢ 
4 H 
456 ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
457 3 
458 ;IN SEQUENCE THE DATA IS: 
459 F 
469 3 ALL ZEROS 
461 ’ ALL ONES 
462 3 WALKING ONES 
463 3 WALKING ZEROS 
464 3 ALTERNATING ONES AND ZEROS 
465 3 
466 8° 
467 
468 002744 TSTBLK: : 
469 002744 -WORD O ;ALL ZEROS 
470 002746 177777 . WORD 177777 ;ALL ONES 
471 002750 000001 .WORD BITO sDATA FOR WALKING ONES 
472 002752 -WORD BIT1 
473 002754 000004 -WORD BIT2 
474 002756 000010 .WORD BITS 
475 002760 000020 -WORD BIT4 
476 002762 000040 .WORD BITS 
477 002764 000100 .WORD BITE 
478 002766 000200 .WORD BIT7 
479 002770 -WORD BITS 
480 002772 001000 .WORD BITS 
481 002774 -WORD BIT10 
482 002776 004000 .WORD BIT11 
4863 003000 010000 -WORD BIT12 

3002 -WORD BIT13 
485 003004 040000 .WORD BIT14 

3006 .WORD BIT15 
487 003010 177776 . WORD tCBITO sDATA FOR WALKING ZEROS 
488 093012 177775 . WORD tCBIT1 
489 003014 177773 . WORD tCBIT2 
490 003016 177767 . WORD tCBIT3 
491 003020 177757 . WORD tCBIT4 
492 003022 177737 . WORD tCBITS 
49%, 003024 177677 . WORD tCBIT6 
494, 003026 177577 WORD tCBIT7 
4935 003030 177377 . WORD tCBITS 
495 003032 176777 . WORD tCBIT9 
497 003034 175777 . WORD tCBIT10 
498 003036 173777 . WORD tCBIT11 
499 003040 167777 . WORD tCBIT12 
500 003042 157777 . WORD tCBITi3 
501 003044 137777 . WORD tCBIT14 

003046 077777 WORD tCBIT1i5 

503 003050 . WORD sALTERNATING ONES, ZEROS 
504 003052 -WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
505 003054 TBLEND==. 





ee 


TSV3 - GLOBAL AREAS 
GLOBAL ENVIRONMENT STOR 


S6 003170 
557 003370 


558 
559 003372 


000000 100000 000000 
000000 000000 000000 


177777 


—" M1113 14-JUN-84 16:41 SEQ 0037 


3. 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
; 
s;STORAGE FOR DEVICE REGISTERS 
; 
DUMMY: ©0,100000,0,0 sOUMMY DEVICE REGISTERS... | 


0,0,0,0,0,0,0,0 
.-FOR MULTI-UNIT CHECKOUT. 


OUFLG:: -WORD O : "DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
NODE V : -WORD O 3FLAG TO SAY NO DEVICE. 
TEMP1:: -WORD O ;SOME TEMP LOCATIONS. 
TEMPe:: -WORD O 
XXCOMM: : -WORD O 3XXDP+ COMM BLOCK POINTER. 
FREE: : -WORD O 31ST FREE MEMORY ADDRESS... 
FRESIZ:: -WORD O 3...AND SIZE CIN WORDS). 
FREEHI: -WORD O ;LAST WORD IN FREE SPACE 
s- .WORD 0 = <24K OR NO KT - 
- NZ = > AND KT. 
KTENABLE : -WORD O sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
NXMFLG: : .WORD O sSET IF WE CAN TEST CLEARED OTHERWISE 
NXMLO:: -WORD O 3NXM LO ADORESS BITS 
NXMHI: : -WORD O NXM HI ADORESS BITS FOR DAL’S 16-21 
T23A:: -WORD O 311/23A FLAG 
T238:: -WORD O 311/238 FLAG 
T3BFLG:: -WORD O sTEST 36 FLAG tO 
PST32W: : -WORD 2000 332W BLOCK ADDRESS FOR 32K START 
SIFLAG:: -WORD O 3 
BADDAT: : -WORD O sACTUAL DATA 
GDDAT: : -WORD O ;EXPECTED DATA 
LOOPFL : -WORD O 
CTAB: : ;CONFIGURATION TABLES. 
CTABM: : -WORD O sCONFIG WORK. 
-WORD O 
-WORD O 
-WORD O 
. WORD -1 3;END OF MEM TABLE. 


CTABE:: 
;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 


te) ° UNIT NOT TESTED 

; 100000 = UNIT ONLINE, NO ERRORS 

; 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXxX ERRORS 

; 160000 = UNIT DROPPED, NON-EXISTENT eve REGISTER 
; 160001 = UNIT DROPPED, NOT IDLE AT STAR 

; 14XXXX_ ® UNIT DROPPED, ENCOUNTERED XXxx ERRORS 
ERTABL: BLKW 64. 

ERTABE : -WORD 0 

SKIPT: .WORD O sl*SKIP SUBTEST O=NO SKIP OF SUBTEST 
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AREAS 


GLOBAL TEX’ MESSAGES 


124 


MACRO M1115 
123 126 
0S2 0S2 

003541 003545 

003493 003607 
203 000 
111 105 
103 105 
115 122 
130 115 
102 101 
111 124 
111 124 
123 122 
106 114 
111 124 
111 124 
111 124 
111 124 
111 124 
111 124 
123 123 
123 123 
040 116 
101 040 
101 040 
101 040 
116 045 
040 125 
040 111 
116 045 
040 116 
040 111 
101 040 





14-JUN-64 16:41 SEQ 0038 


-SBTTL GLOBAL TEXT MESSAGES 
; "THe GLOBAL TEXT oo CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATIGN THAT ARE USED IN 


; MORE THAN ONE TEST 
3-- 


3° 
;NAMES OF DEVICES SUPPORTED 
- 

DEvTYe <TSVO5> 
LSOvTYP:: 

a /TSVOS/ 


3° 
sTEST DESCRIPTION 


- 
s0esc DESCRIPT <eeee TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR eeee> 
L 33 

— /eeee TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR eece/ 


3° 
;BIT TO ASCII CONVERSION FOR TSSR REGISTER 


i 
TSSRBIT: : -WORD 14$,28,38,.48,5%.6%,78.8% 
‘WORD © - 98, 108, 116, 128,138, 148,158, 168 
1$: -ASCIZ ‘SC’ 
2s: -ASCIZ ‘BIE’ 
38: -ASCIZ ‘SCE’ 
4%: -ASCIZ ‘RMR’ 
S$: -ASCIZ ‘NXM’ 
6%: -ASCIZ ‘NBA’ 
7$: -ASCIZ ‘BITS’ 
6s: ASCIZ ‘BITS’ 
9%: ASCIZ ‘SSR’ 
10%: —— : 
118: ASCIZ ‘BITS’ 
12s ASCIZ ‘BIT4' 
13% ASCIZ ‘BITS’ 
14% ASCIZ ‘BIT2’ 
15% -ASCIZ ‘BIT1' 
16% -ASCIZ ‘BITO’ 
-EVEN 
SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
SFHERR: .ASCIZ ‘TSSR ERRCR AFTER BUS RESET’ 
coon rs / Nan ge Sevace REGISTER/ 


-ASCIZ /SA ADORESS: 
TSSX:  .ASCII /#A TSBATSSR EX EXP*D: S068A , SO6SN/ 
Iz = 2 TSSR REC'D: s068A,806/ 


USI: -ASCIZ ; wMIMEXPECTED INTERRUPT / 

NSI: -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
FNOINTR: -ASCII /sNsA/ 

NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
IFAULT: .ASCIZ / INTERRUPT FAULT/ 

INTX: -ASCIZ /#8A CPU PC: S068A TSBA: #06/ 
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672 006016 
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040 042 NOINIT: .ASCIZ / “BUS-INIT” DION’ T INITIALIZE CONTROLLER, 
040 042 NSINIT: .ASCIZ / “SOFT-INIT” DIDN'T INITIALIZE THE OPU/ 
040 042 BRINIT: .ASCIZ / “BUS-RESET” DIDN'T INITIALIZE THE DPU/ 
NUL : -ASCIZ // 
116 OOO MULCR: .ASCIZ /#N/ ‘\ 
101 040 EXPGOT: .ASCIZ /#A EXP’D: SO068A, REC'D: #06/ 
116 045 EXPGT2: .ASCIZ /sNSA EXP’D: SO6HA, SO6GENSA REC'D: SOSA, S06/ 
101 040 OUADI2: .ASCIZ /#A REG(W) WRITTEN TO: SO68A REG(R) READ; ExP’ D: S06SA, REC'D: 806/ 
101 115 PKTRAM:: -ASCIZ ‘RAM te Do Not Metch Packet Sent’ 
040 103 SCME: -ASCIZ / CONFIG DOESN’T MATCH MFG. MASTER/ 
122 111 WRTMSG: .ASCIZ "WRITE CHARACTERISTICS Fei led’ 
123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
10: 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE,.CABLES, TRANSPORT etc. 
122 122 RETERR: .ASCIZ ‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 
116 045 WNOMEM: .ASCIZ ‘SNSA eeeee NO NXM ADORESS--CANNOT TEST NXM TIMEOUT. seecesn’ 
116 045 MB186: .ASCIZ ‘GNBA eeceecesesseoeses 11/23A SYSTEM soceseesceseseseemN’ 
116 045 M8189: .ASCIZ ‘NBA seececesessessees 11/238 SYSTEM seeseseseseseseserN’ 
.SBTTL GLOBAL ERROR REPORT SECTION 
ioe 
; THE GLOBAL ERROR REPORT --g A CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
gc? 
a BGNMSG NXRERR ;NON-EXISTANT DEVICE REGISTER. 
PRINTX @NXRX,NODEV ;NODEV = NEXM ADORESS. 
003106 MOV NODEV, -( SP) 
003773 MOV »-(SP) 
000002 MOV a 
TRAP CSPNTX 
ADO 06 .,SP 
005764 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 
ENDOMSG 
10002: 
TRAP C$mMSG 
3 
; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 
EXTEND: TST CPC)+ 
EXTA - se ; O = NO EXTENSION. 
177770 JSR PC, @EXTA ; APPEND EXTENSION TEXT. 
1$: PRINTX @NULCR ; PRINT A BLANK LINE 
004524 MOV ONULCR, -C SP) 
000001 MOV 01,-CSP 
MOV SP, 
TRAP CSPNTX 
000004 ADD 04, 
RTS PC 


i 


TSVS - GOBAL 
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AL AREAS 
PRITSSR - PRINT TSSR CONTENTS 


14-JUN-64 16:41 


SEQ 0040 


.SBTTL PRITSSR - PRINT TSSR CONTENTS 


sROUTINE TO DISPLAY THE “Routine 15 N BIT DEFINITIONS, OF 


3 (HE TSSR REGISTER. THIS ROUTINE 


A MESSAGE PRINTING ROUTINE 


PINPUTS: 


Ri 


CONTENTS OF TSSR 


‘ 
sSUBORDINATE ROUTINES: 
CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 
SAVREG 
PRINTB 
MOV 
006473 MOV 
000002 MOV 
MOV 
TRAP 
000006 ADO 
MOV 
016124 JSR 
6cs 
PRINTX 
006713 mov 
000001 MOV 
MOV 
TRAP 
000004 ADO 
5%: MOV 
001476 BIC 
BEQ 
MOV 
003476 MOV 
108: TST 
BEQ 
CLC 
ROL 
Bcc 
MOV 
118: MOVB 
BNE 
000054 177777 MOvB 
13%: TST 
BR 
15%: CLRB 
PRINTX 
002624 MOV 
006664 MOV 


S NORMALLY CALLED ONLY 


sSAVE GENERAL REGISTERS 


~R4 sSAVE THE TSSR CONTENTS 
@TSSRFOR ,R4 sPRINT THE CONTENTS OF TSSR 
R4,-(SP) 
@TSSRFOR, -( SP) 
@2,-(SP) 
SP ,RO 
swore 
R4,RO :GET TSSR BACK FOR CHKAMB 
PC, CHKAMB a re AMBIGUOUS ? 
TSSR SHOW CONTENTS ARE AMBIGUOUS 
OAMBTSSR, -( SP) 
#1, -(SP) 
»RO 
CSPNTX 
oy 
sCONTENTS OF TSSR 
SHLADOR FATERR! TERCL SAS sCLEAR ALL MULTIPLE BIT FIELDS 
208 sNO BITS ARE SET 
OTMPBFR ,R2 ASCII FER 
@TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
R3 ' BITS TO CONVERT 
15% sBRANCH WHEN ALL ARE DONE 
sCLEAR CARRY FOR SHIFT 
R3 s SHIFT 5 x BIT ae CARRY 
136 sBRANCH IF BIT NOT SET 
(R1),RO SPOINTER TO BIT ber Tut TION 
(RO)+,(R2)> sMOVE ASCIZ TO BUFFER 
11% sMOVE ALL BITS 
@’,,-1CR2) TINSERT A COMMA TO TERMINATE 
(R1)> sPOINT TO NEXT DESCRIPTION 


sGET THE REMAINING BITS 
s TERMINATE NE 


-(R2) THE LI 
OTSSOEF , OTMPBFR }PRINT THE BIT DEFINITIONS 
@TMPBF ) 


R,- 
@TSSOEF , -( SP) 


TSV3S - GLOBAL AREAS 


PRITSSR - PRINT 
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TSSR CONTENTS 


012746 000002 MOV 
010600 
108415 TRAP 
062706 000006 ADD 
010403 208: MOV 
703 177761 BIC 

016303 006754 

PRINTX 
010346 MOV 
012746 006554 MOV 
012746 000002 MOV 
104415 TRAP 

706 000006 ADO 

010403 MOV 
042703 177717 BIC 
001416 BEQ 
006203 ASR 
006203 ASR 
006203 ASR 
016303 007314 

PRINTX 
010346 
012746 006615 MOV 
012746 000002 MOV 
010600 
104415 TRAP 
062706 000006 ADO 
042704 176377 258: BIC 
001411 Q 

PRINTX 
010446 HOV 
012746 006513 MOV 
012746 000002 MOV 
010600 MOV 
104415 TRAP 
062706 000006 ADO 
013703 002172 30$: 

PRINTX 
010346 
012746 000001 MOV 
010600 
104415 TRAP 
062706 000004 
000207 RTS 


C4 


@2,-(SP) 
SP 


Ag o R3 
@rCFATERR RS 
25% 


R3 
R3 


RS 
TSFCOD(R3).R3 
FC R3 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sD0N'T PRINT IF ZERO 


sALINE TERMINATION CCOE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sCLEAR ALL SUT EXTENDED ADDRESS 
sD0N‘'T PRINT IF ZERO 
;PRINT THE EXTENDED ADORESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


SEQ 0041 


me a -  -  ee e 


wee 


TSVS - GLOBAL AREAS 
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PRITSSR 


00 
007371 
007435 
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007371 
164 
163 
163 
163 


EPRT1: 
EPRT2: 
TSSRF 


-ASCIZ 
-ASCIZ 


D4 


'GNBA eeeeeCHECK TRANSPORTeeee 
'gNsA re PARITY SWITCH IN TRANSPORT eesee’ 
‘SNBA TSSR = 806’ 


.ASCIZ 
-ASCIZ ‘SNBA Extended Address Bits = 806’ 
-ASCIZ Terminetion Clees Code « sT' 


‘ahaa 
-ASCIZ ‘sSNA Fetel Terminetion Clees Code = sT' 
-ASCIZ ‘sSNA TSSR Bite Set: aT’ 

.ASCIZ ‘sNBA TSSR Contents Are Ambiguous’ 


1$,2¢,3%,49,58,6¢8, 78,88 

‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Stetus Alert’ 

‘Function Reject’ 

‘Recovereble Error - Tepe Position One Record Down’ 
‘Recoverable Error - Tape Wes Not Moved’ 
‘Unrecovereble Error’ 

‘Fetel Controller Error’ 


18,28,38,48 

‘Internel Diagnostic Fai lure’ 
‘Reserved’ 

‘Bus Interfece or Senity Check Error’ 
‘Reserved’ 


SEQ 0042 
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793 
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- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


003125 


007632 
000003 
000010 
017376 


007574 
000003 


000010 


116 
i16 


.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


3¢ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


; 
; INPUT: 


PRIPKT: : 


10$: 


15%: 


20%: 
25%: 


045 PKTFRM: 
045 PKTADD: 


RO NUMBER OF WORDS IN PACKET 
R3 HIGH ORDER COMMAND oat ADDRESS 
R4 ADDRESS OF COMMAND PACKET 


NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


SAVREG sSAVE THE REGISTERS 

MOV RO,RS sSAVE NO. OF —s IN PACKET 

TST KTENABLE s ABOVE 26K UNDER TEST? 

BNE 10% sBR IF YES 

CLR R3 sSET HIGH ORDER ADDRESS TO 0 
R3,R1 sCOPY HIGH ORDER ADDRESS 

MOV R4, sGET LOWER ADDRESS 

ROL RO sSHIFT BIT 15 INTO C BIT 

ROL R1 sAND INTO HIGH ORDER. 

PRINTB @PKTADD,R1,R4 sPRINT PACKET ADDRESS 

MOV R4,-( SP) 

MOV 1,-(SP) 

MOV TADO , -( SP) 

MOV @3,-(SP) 

MOV eRO 

TRAP CSPNTB 

ADO #10,SP 

MOV R3,RO sGET HIGH ORDER ADDRESS 

BEQ 20% 3BR IF NOT ABOVE 26K. 

MOV R4,R1 sGET LOW ORDER ADDRESS 

JSR PC, SETMAP sSETUP PARG MAPPING FOR 18 =} ee 

MOV RO,R4 sGET RETURNED PAR6 ADDRESS BIA 

CLR R1 sSAVE WORD NUMBER 

MOV (R4)¢,R2 sGET PACKET CONTENTS 

PRINTB @PKTFRM,R1,R2 sPRINT THE DATA 

MOV »- (SP) 

MOV R1,-CSP> 

MOV OPKTFRM, -CSP) 

MOV @3,-(SP) 

MOV SP, 

TRAP CSPNTB 

ADD #10,SP 

INC R1 sNEXT WORD NUMBER 

CMP R1,R5 sD0NE ALL PACKET WORDS? 

BLT 25% s;LOOP TILL ALL DONE 

RTS PC sRETURN 


-ASCIZ ‘SNSA Packet Word @8D18A = #06' 
_—- ‘GNSA Packet Address = #01805' 


SEQ 0043 


TSV3 - GLOBAL AREAS 


PRIBXOR - PRINT EXPD, RECV AND XOR BYT 


012700 177400 


012746 007752 
000004 


062706 000012 


045 116 045 


010203 


MACRO M1113 . JUN-84 16:41 


-SBTTL 


4 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3+ 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 


sTHIS ROUTINE 


H 

; INPUTS: 

a 

; Ri 
: R2 


: 
;OUTPUT: 

3 

3 RO 


3 — 
PRIBXOR: : 
SAVREG 


MOV 
XOR 


RTS 


XORBF OR : 

-EVEN 

- SBTTL 
3¢ 


IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE —-- 
R2,R3 sEXPECTED DAT 
R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO sBYTE MASK 
RO,R1 sSAVE LOW BYTE RECV 


A sSAVE LOW BYTE EXPD 

RO,.R sSAVE LOW BYTE XOR 
OXORBFOR ,R2, R1,RS sPRINT THE MESSAGE 

R3,-CSP) 

R1,-CSP) 

R2,-(SP) 

@XORBF OR, -( SP) 

04, -(SP) 

SP ,RO 

CSPNTB 

#12,SP 

R3,RO sRO HAS XOR ON RETURN 

PC TRE TURN TO CALLER 


-ASCIZ ‘sNSA EXPD: SOZTSA RECV: SO38A XOR: #03' 


PRIXOR - PRINT EXPO, RECV AND XOR 


; 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


3 

; INPUTS: 

F 

; R1 
F R2 


xOR 
PRINTB 





RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE + | cr 
Re, a sEXPECTED DAT 
R1,R sFORM THE EXCLUSIVE OR 
OXORFOR, R2,R1, a3. sPRINT THE MESSAGE 


SEQ 0044 


I IE a eA OCR OR a OT 


TSV3 - GLOBAL AREAS 


PRIXOR - PRINT 


874 
875 010070 
876 





MACRO M1113 14-JUN-64 16:41 
ECV AND XOR 


EXPO, REC 

010346 MOV 
010146 MOV 
01 MOV 
012746 010070 MOV 
012746 000004 MOV 
010600 MOV 
104414 TRAP 
062706 000012 ADD 
010300 MOV 
000207 RTS 

045 


R3,RO sRO HAS XOR ON RETURN 
PC sRETURN TO CALLER 


116 045 XORFOR: ny ‘sNSA EXPD: S068A RECV: S068A XOR: 806’ 


SEQ 0045 


TSV3 - GLOBAL AREAS 


1 
894 010142 


14 010172 
44 010174 


000207 





MACRO M1113 14-JUN-64 16:41 
PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


010174 
000002 


000006 


116 


.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3¢ 


;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
s;THIS ROUTINE IS NORM@LLY CALLED FROM A PRINT ROUTINE 


; 

P INPUTS: 

: RO OCTAL VALUE TO CONV 

; Ri Cree OF POINTERS 10 ASCII EQUIVALENT 

; 

s* 

PRIEQU: 
SAVREG ;SAVE THE REGISTERS 
RTS PC RETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
¥ 


;PRINT CONTROLLER RAM ADDRESS. 
‘aes ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


;INPUTS: 
H 
; R4 RAM ADDRESS 
3 
ed 
PRIRAM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR ,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-C(SP 
MOV @RAMF OR, -C SP) 
MOV @2,-(SP 
MOV SP, 
TRAP CSPNTB 
ADO 6 ,SP 
RTS PC sRETURN 


045 RAMFOR: yon ‘siNSA CONTROLLER RAM ADDRESS = #06' 





SEQ 0046 


TSV3 - GLOBAL AREAS 
PRIADD 


002230 
002232 


010306 
000003 


000010 


36 
2 010306 045 116 


952 010352 
953 010352 
954 010356 
955 010362 


013702 
013701 


002230 
002232 


010434 
000002 


MACRO M1113 14-JUN-84 16:41 
- PRINT MEMORY ERROR ADDRESS 


045 


SEQ 0047 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


” 


;PRINT MEMORY ADORESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; 
IMPLICIT INPUTS 


a 

5 

; ERRHI - HIGH ORDER ADDRESS 

; ERRLO - LOW ORDER ADDRESS 

: 

i- 

PRIADO: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI,RO sGET HIGH ADDRESSS 
MOV ERRLO,R1 sGET ee ADDRESS 
MOV R1,R2 sCOPY LOW ADDRESS 
ROL R1 iSHIFT “BIT 15 TO C BIT 
ROL sSHIFT INTO HIGH ORDER 
PRINTB @PRIAO,RO,R2 }PRINT MEMORY ADDRESS IN ERROR 
MOV R2,-CSP) 
MOV RO, -(SP 
MOV @PRIAO, -( SP) 
MOV @3,-C(SP) 
MOV eRO 
TRAP CSPNTB 
ADD #10,SP 
RTS PC sRETURN 


PRIAO: a ‘SNA MEMORY ERROR ADDRESS = #01805’ 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


3¢ 


;PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 


i 
; 
5 ERRHI - HIGH ORDER ADDRESS 
; ERRLO - LOW ORDER ADDRESS 
; 
ed 
PRITADD 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
] ERRHI ,R2 sGET HIGH ADORESSS 
MOV ERRLO,R1 sGET LOW ADDRESS 
sMOV R1,R2 sCOPY LOW ADORES 
sROL sSHIFT BIT 15 TO C BIT 
sROL sSHIFT INTO HIGH ORDER 
— @PRITO,R1 sPRINT MEMORY ADDRESS LOW IN ERROR 





TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 16:41 SEQ 0048 
PRITADD - PRINT MEMORY TEST ADDRESS 


010404 062706 000006 ADD 06, SP 

960 010410 PRINTB @PRIT1,R2 ;PRINT MEMORY ADDRESS HIGH IN ERROR 
010410 010246 MOV R2, -(SP) 
010412 012746 010477 MOV @PRIT1, -(SP) | 
010416 012746 000002 MOV 2, -(SP) 
010422 010600 MOV SP 
010424 104414 TRAP ss CSPNTB | 
010426 062706 000006 ADD 06 ,SP 

961 010432 000207 RTS PC ; RETURN | 


963 010434 045 116 045 PRITO: .ASCIZ ‘sNSA MEMORY TEST ADDRESS LOW = #06’ 
a4 010477 045 116 045 PRIT1: yy ‘SNA MEMORY TEST ADDRESS HIGH = #06’ 








TSV3 - GLOBAL AREAS MACRO M1113 14-JUN-64 16 
SPACE - SPACE RECORDS (FORWARD AND REVERSE ) COMMAND 


969 :e 


971 ;ROUTINE TO ISSUE A SPACE RECORDS 


K4 


SEQ 0049 


SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


972 s;COMMAND (FORWARD OR REVERSE ) 


© 
~s 
r-) 
z 
= 


R3 


RS 


OUTPUT: 
CARRY 


RO 


SIDE EFFECTS: 


: 
: 
% 
R 


1004 010550 012737 000764 010740 
1005 010556 012737 140010 010730 


1006 010564 0057035 TST 
1007 010566 100403 BMI 
1006 010570 010337 010732 
1009 010574 000407 BR 
1010 010576 042703 100000 S$: BIC 
1011 010602 010337 010732 
1012 010606 052737 000400 010730 BIS 
1013 010614 012704 C©10730 10%: MOV 
1014 010620 010465 000000 MOV 
1015 010624 004737 0163350 15%: JSR 
1016 010630 103420 6cS 
1017 010632 DELAY 
010632 012727 000250 MOV 
010636 000000 . WORD 
010640 013727 002116 MOV 
010644 000000 . WORD 
010646 005367 177772 DEC 


OF RECORDS TO BE SPACED OVER 


NUMBER 
BIT15 a ae DIRECTION 
S FORWARD 


RSE 
FIRST DEVICE UNIBUS ADDRESS 


- SPACE RECORD 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


SET OMMAND OK 
CLR - SPACE RECORDS FAILED 


THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 


250 
#250,(PC)« 
L#DLY.(PC)s 
-6¢(PC) 

74 


sSAVE THE _— REGISTERS 


OF RECORDS TO SPACE 


F COMMAND 
sCLEAR DIRECTION BIT 
sLOAD UP NUMBER OF RECORDS TO SPACE 
;SET REVERSE BIT IN COMMAND PACKET 
3SET UP R4 WITH PACKET ADDRESS 
sSEND OUT COMMAND 
sWAIT FOR SSR 

SSR IS SET AND OK 


sBR, IF 
sDELAY ABOUT -25 SECONDS 





TSv3 _- GLOBAL AREAS 
SPACE SP 


L4 


ACE RECORDS (FORWARD AND REVER 


005367 177756 

001367 

005337 010740 
356 


MACRO M1113 14-JUN-84 16:41 SEQ 0050 
SE) COMMAND 
DEC -22(PC) 
BNE .-20 
DEC SDELAY sBUMP DELAY a DOWN 
BNE 15$ sBR, IF MORE DELAY 
BR 60% BR IF TROUBLE CARRY = CLEAR 
208: MOV TSSRCRS),R1 sREAO TSSR 
MOV @SSR ,R2 SSET UP EXPECTED 
25$: CMP R2,R1 sARE THEY OK 
BEQ 40% sBR, IF EQUAL = OK 
BR 60$ s TROUBLE EXIT 
40$: SEC sSET CARRY NO TROUBLE 
BR 70$ sEXIT 
+h cLC SCARY CLEAR = ERROR 
MOV R4,RO sPASS PACKET ADDRESS 
RTS PC sRETURN 


; 
; 
;PACKET FOR SPACE COMMAND 
; 


.*¢,¢10>€177770 
; 
sSOMMAND WORD 
80$: . WORD 
;NUMBER OF RECORDS TO BE SPACED OVER WORD 
90%: - WORD 
. WORD 
- WORD 
SDELAY: .WORD 0 sDELAY COUNTER 


- EVEN 
-SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 


SEQ 0051 


TSV3 - GLOBAL MACRO M1113 14- ~ypyn-64 16:41 


10 

1074 010742 
1075 010742 
1076 010746 


1100 011060 
1101 011062 
1102 011064 
1103 011066 
1104 011072 


AREAS 
WRICHR - WRITE EMARACTERTSTICS COpeAND 


000012 


000012 


:C 


: 
; INPUT: 


: 
3 


; 
; OUTPUT: 


RO 
CARRY 


SOFTWARE SWITCHES SET AS FOLLOWS: 


sSIDE EFFECTS: 


108%: 


708: 


URTCHR: : 


RTS 


3? 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
OMMAND SO THAT OTHER COMMANDS WILL BE 


ACCEPTED 


ADORESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - WRITE CHARACTERISTICS COMMAND Ok 
CLR - WRITE CHARACTERISTICS FAILED 


‘IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 


EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


;CLEAR 


608 

TSSRCRS),R1 
SR ,R2 

@OFL .R1 

25% 

9 


40% 
60% 


06. .R4 

(R4),R3 

OX2 .EXTF ,.XST2CR3) 
45% 

EXTFEA 

@X2 .BUFE ,.xST2(R3) 
50% 


BENBSW 


70% 
TSSACRS),RO 
PC 


:SAVE THE GENERAL REGISTERS 


BUFFER 


ENABLE SWITCH 
;CLEAR EXTENDED FEATURES SW SWITCH 
sSEND OUT COMMAND 
;WAIT FOR SSR 
;6R, IF SSR IS SET AND OK 
8 IF TROUBLE CARRY = CLEAR 


sPOINT TO WRT CHARA DATA PACKET 
sGET ADORESS OF MESSAGE BUFFER 
———— FEATURES BIT SET? 


8 NO 
sSET EXTENDED FEATURES SW SWITCH 


sSET SOFTWARE SWITCH FOR ENABLED 


;SET CARRY NO TROUBLE 
;EXIT 

sCARRY CLEAR = ERROR 
s;RETURN TSSR CONTENTS 
;RE TURN 


TSVS - GLOBAL AREAS MACRO M1115 
REWIND - POSITION TAPE (REWIND) C 


1135 011100 012704 011170 
000000 
000550 
1136 011114 004737 016330 


11122 012727 000372 
000000 

011130 013727 002116 
000000 

011136 005367 177772 

011144 005367 177756 


1144 0111 010400 
1145 011162 000207 
1146 


1148 011170 
1150 011170 

1151 011170 102010 
1152 011172 000000 


14-JUN-64 16:41 SEQ 0052 


-SBTTL REWIND POSITION TAPE (REWIND) COMMAND 


;TMIS ROUTINE WILL REWIND THE SELECTED TAPE. 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRTVE. ®.SO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


-o = & o oF oF 


CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 
JSR REWIND 


- o © + oF oF 


INPUT: 
: RS FIRST DEVICE UNIBUS ADDRESS 
; 
; 
;OUTPUT 
; RO THE CONTENTS OF R4 IS PASSED TO RO 
; 
; 
7? 
REWIND: : 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV ack, - GET PACKET ADORESS 
MOV R4, TSOBCRS) ;SEND PACKET ADORESS TO EXECUTE 
MOV 0360. ,R3 ;ENOUGH TIME FOR 2400' REEL TO REWIND 
10s: JSR PC, WALTF ;WAIT FOR SSR TO SET 
S 203 ;LEAVE WHEN SSR IS SET 
DELAY 250. ;WAIT FOR .25 SECONDS 
MOV €250. ,(PC)- 
.WORD 0 
MOV LSOLY,(PC)s 
DEC -6(PC) 
DEC -22(PC) 
BNE i 
DEC R3 ;BUMP COUNTER DOWN 
BNE 108 ;KEEP GOING 
CLC ;CLEAR CARRY TO SET ERROR 
208 MOV R4,RO ;PASS THE PACKET ADDRESS 
RTS PC ; RETURN 
=<, #102€177770 
RWPACK: 


. WORD 
. WORD 


102010 
0 


sPOSTION COMMAND (REWIND) 
sNOT USED 


TSVS - GLOBAL 
CKRAM = -:~ COMP 


1 
1162 011174 
1163 011174 


1205 011302 


AREAS MACRO M1113 14-JUN-64 16:41 


ARE RAM TO 1/0 PACKET 


-SBTTL CKRAM 
3¢ 


- COMPARE RAM TO 1/0 PACKET 


; 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA 70 A COMMAND PACKET. 


$ 

; INPUT: 

; 

3 R4 ADORESS OF THE COMMAND PACKET 

3 R5 FIRST DEVICE UNIBUS ADDRESS 
;OUTPUT 

. 

; CARRY SET - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


; 
sIMPLICIT OUTPUT: 
DAT A HELO INR 


SIDE EFFECTS: 


CKRAM 
SAVREG 

012701 002234 @RAMDATA,R1 
012702 000201 MOV ORMPK TBEG ,R2 
005003 CLR R3 
004737 016416 JSR PC .CHKTSSR 
112765 000000 000000 MOVB #0, TSOBCRS) 
004737 016416 108: JSR PC .CHKTS 
010265 000000 MOV R2, TSOBCRS ) 
004737 016416 JSR PC .CHKTSSR 
116511 000000 MOVB TSBACRS),(R1) 

124 CMPB (R1)+,(R4)> 
001401 BEQ 

3 INC R3 

005262 208: INC 
020227 000210 chp R2, ORMPK TEND 
003761 BLE 8 
005703 TST R3 
001402 BEQ 30% 
000241 CLC 
000401 BR 50s 
000261 30$: SEC 
012737 000010 002274 50%: MOV 96. ,RAMSIZ 
000207 RTS 


HE TABLE ty IS FILLED WITH THE 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
sBYTE ADORESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 


sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF = 

3SET ERROR FLAG 

sADORESS OF — te LOCATION 


NOT 
:CLEAR CARRY TO SHOW ERROR 
sAND EXIT 
sSHOW GOOD COMPARE 
;SETUP RAMSIZ FOR PRAMPKT ROUTINE 
;RE TURN 


TSv3_- GLOBAL AREAS 
CKRAM2 


COMPARE RAM TO 


MO CHARACTERISTICS DATA. 


1250 011376 


1261 011434 
1262 011436 


002234 
000167 


016416 
000000 
016416 
000000 
016416 
000000 


000010 
002220 
000012 
000200 


000176 


002274 


002274 


. SBTTL 
3° 


C5 


~ 


CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


; 
sROUTINE TO READ THE FIRST 6 OR 10 BYTES FROM RAM 


sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


: 
; INPUT: 


SIDE EFFECTS: 
CKRAM2: : 
SAVREG 
MOV 
MOV 
CLR 
JSR 
MOvVB 
10%: JSR 
NOV 
JSR 
MOvVB 
ChPB 
BEQ 
INC 
208: INC 
MOV 
TST 
BEQ 
MOV 
CMP 
BLE 
BR 
25%: CMP 
BLE 
27% TST 
BEQ 
CLC 
BR 
30%: SEC 
506: ATS 


OF THE age Lh at Sh DATA 
ADORE SS 


ADORE SS 
FIRST DEVICE UNIBUS 


SET - RAM MATCHES PACKET 


CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 


THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 6. OR 10. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
sBYTE ADORESS OF ty RAM DATA 
sCLEAR THE ERROR FLAG 


sWAIT FOR SSR 
sSET 


MAINTENANCE 
SWAIT FOR SSR TO SET 
sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 
sa 


BRANCH 

sSET ERROR FLAG 

sADORESS OF NEXT RAM LOCATION 
sASSUME EXTFEA NOT SET 


SEQ 0054 


SE 
sIS THE SOFTWARE EXTENDED FEATURES SET 


s6R, IF NOT 


SET 
sSET RAMSIZ FOR EXTEND FEATURES 
BUFFER 


1BR 
sAND EXIT 


sSHOW GOOD COMPARE 
URN 


RET 


ANCH IF NOT 
sCLEAR CARRY TO SHOW ERROR 


| 
ee ere ee 


DS 


TSv3 - GLOSAL Ane As MACRO M1115 14-JUN-84 16:41 SEQ 0055 
CKMSG COMPARE WRITE CHAR. aw SAGE BUFFERS 

1264 .SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
1265 i¢ 
1266 ’ 
1267 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
1268 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1269 sERROR PRINT ROUTINES. 
1270 3 
1271 3 INPUT: 
1272 : 
1273 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1274 : Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1275 3 Re EXPD MESSAGE BUFFER ADORESS 
1276 sOUTPUT 
1277 ; 
1278 F CARRY SET - MESSAGE BUFFERS MATCH 
4 F CLR -MESSAGE BUFFERS DON’? MATCH 
12 
ot sIMPLICIT OUTPUT 
1 3 
1263 F EXPMSG BUFFER IS SET TO EXPD DATA 
1264 3 RECMSG BUFFER IS SET TO RECV DATA 
1285 3 RCVHIADO SET TO HIGH ORDER ADORESS OF RECV 
4 3 RCVLOADO SET TO LOW ORDER ADDRESS OF RECV 

3 

g° 
1289 011440 CKMSG: : 
1290 011440 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1291 011444 010037 . 002276 MOV RO,RCVHIADD sSAVE RECV HIGH ADORESS 
1292 011450 010137 .002300 MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
1293 011454 005737 003126 TST KTENABLE sTESTING ABOVE 286K? 
1294 011460 001403 BEQ 10% s8R IF NO 
1295 011462 004737 017376 JSR PC ,SETMAP sRETURN ADORESS BIASED TO PARG6 IN RO 
1296 011466 010001 MOV RO,R1 sGET RETURNED ADORESS BIASED TO PARG 
1297 011470 005004 108: CLR R4 sWORD IN BUFFER 
1296 011472 005003 CLR R3 EAR ERROR SEEN FLAG 
1299 011474 010205 MOV R2, GET EXPO BUFFER ADORE 
1300 011476 011264 002314 15%: MOV (R2).E R4) ;SAVE EXPD FOR ERROR REPORT 
1301 011502 011164 002460 MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
1302 011506 022221 CMP CR2)+,CR1)+ sEXPD EQUAL RECV? 
1303 011510 001401 BEQ 25% 36R IF YES 
1304 011512 005203 INC R3 3SET ERROR SEEN FLAG 
1305 011514 062704 000002 25%: ADO @2,R4 sPOINT TO a WORD lee. 
1306 011520 020427 000014 CMP R4,014 s00NE FIRST 7 WORDS? 
1307 011524 003764 BLE 15% 36R IF NO 
1306 011526 032765 000200 000012 BIT #2 .EXTF , xST2(RS)1I8 EXTENDED FEATURES SET IN EXPD? 
1309 011534 001403 BEQ 50% 
1310 011536 020427 000016 CMP R4,016 S OONE EXTENDED FEATURES WORD? 
1311 011542 003755 BLE 15% 28R IF NO - 
1312 011544 005703 50%: TST R3 y ERRORS SEEN? ? 
1313 011546 001402 BEQ 55% 
1314 011550 000241 CLC ISET FAILURE 
1315 011552 000401 BR 60% ’ 
1316 011554 000261 55%: SEC 3SET SUCCESS 
1317 011556 000207 60$: RTS PC ;RETURN 


——-—— - -— --— OOOO O_O 


TSv3 - GLOBAL AREAS MACRO M1113 14-JUN-84 16:41 
CKMSG2 COMPARE EXPD RECV MESSAGE BUFFERS 


1319 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
1320 se 
1321 sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
1322 s;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
1323 sERROR PRINT ROUTINES. 
1324 3 
1325 : INPUT: 
1326 F RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
1327 ; Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
1328 ; R2 EXPD MESSAGE BUFFER ADDRESS 
1329 : Re NUMBER OF BYTES TO COMPARE 
1330 3 
1331 sOUTPUT: 
1332 ; CARRY SET - MESSAGE BUFFERS MATCH 
ey 3 CLR - MESSAGE BUFFERS DON’T MATCH 
1 3 
1335 sIMPLICIT OUTPUT: 
1336 : EXPMSG BUFFER IS SET TO EXPD DATA 
1337 F RECMSG BUFFER IS SET TO RECV DATA 
1338 3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
ee 3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
.> 

1341 011560 CKMSGe: : 
1342 011560 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1343 011564 020327 000144 CMP R3. PRECMSG- cette y Is _— ABOVE MAX ALLOWED? 
1344 011570 003412 BLE 5% BR IF 
1345 011572 012703 000144 MOV @RECHSG -EXPMSG, RS; 880 
1346 011576 PRINTF ; 

011576 012746 011712 MOV 2° (SP) 

011602 012746 000001 MOV #1,-C(SP) 

011606 010600 MOV »RO 

011610 104417 TRAP CSPNTF 

011612 062706 000004 ADO 04,SP 
1347 011616 010037 002276 53: MOV RO,RCVHIADO sSAVE RECV HIGH ADORESS 
1348 011622 010137 002300 MOV 1, OAD sSAVE RECV LOW ADDRESS 
1349 011626 737 003126 TST E sTESTING ABOVE 28K? 
1350 011632 001403 BEQ 10% s6R IF NO 
1351 011634 004737 017376 JSR PC. SETMAP RETURN A ADORESS BIASED TO PARG IN RO 
1352 011640 010001 MOV RO,R1 sGET RETURNED ADORESS BIASED TO PARE 
1353 011642 005004 108: CLR RA sWORD IN BUF 
1354 011644 005005 CLR RS sCLEAR ERROR SEEN FLAG 

01 111264 002314 15%: MOvB CR2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
1356 011652 111164 002460 Ova (R11), RECMSG(R4) sSAVE RECV FOR ERROR REPORT 
1357 011656 1 CMPB CR2)+,CR1)> sEXPD EQUAL RECV? 
1356 011660 001401 BEQ 25% sB8R IF YES 
1359 011662 INC sSET ERROR SEEN FLAG 
1360 011664 062704 000001 25%: ADO #1,R4 sPOINT TO NEXT BYTE 
1361 011670 020403 CMP R4,R3 sD0NE ALL BYTES? 
1362 011672 002001 BGE 50% 36R IF YES 
1363 011674 000764 BR 15% 300 NEXT BYTE 
1364 011676 005705 50%: TST RS sANY ERRORS SEEN? 
1365 011700 001402 BEQ 55% 38R IF NO 
1366 011702 000241 CLC 3SET FAILURE 
1367 011704 000401 BR 60% 3 
1368 0123706 000261 55%: SEC sSET SUCCESS 
1369 011710 000207 60%: RTS PC ;RETURN 


1371 011712 
1372 012002 
1373 012015 
1374 012046 
1375 012101 


1391 012114 

012114 
1392 012114 
1393 012120 
1394 erty 


1 
1410 012136 
1411 012142 
012142 
012142 


TSV3S - GLOBAL AREAS 
CKMSG2 


004737 
004737 


104423 


004737 
012700 
004737 


104423 


MACRO M1115 14-JUN-84 16:41 
- COMPARE EXPD RECV MESSAGE BUFFERS 


006020 
017262 


007446 


DEBUGMSG 
FERCM: .ASCII /SNSA e00/ 
ERCHM: -ASCIZ 7/7 TSSR ERROR CODE REC'D = / 
SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
TINERR: — FUEStt une? 


$¢ 
;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


3 
3; INPUT: 
3 
3 R1 CONTENTS OF TSSR AT ERROR 
3 
;SIDE EFFECTS: 
: EXECUTES DROP UNIT TO CEASE TESTING 
8 
ge 
BGNMSG SFIMSG 
SFIMSG: : 
JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKDROP sDOROP UNIT, IF ALLOWED 
L10003: 
TRAP C$MSG 


3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


; 
s INPUTS: 


; R1 TSSR CONTENTS 
R4 ADORESS OF COMMAND PACKET 


BGNMSG PKTSSR 


PKTSSR:: 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV o4 RO 3sNO. OF WORDS IN PACKET 
JSR PC, PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

L10004; 


TRAP C$MSG 


SEQ 0057 


: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED -’ ; a0 


1422 012144 
012144 


1449 012170 

012170 
1450 012170 
1451 012174 
1452 012176 


TSv3 _- GLOBAL AREAS 
CKMSG2 


004737 
012700 
004737 


104423 


004737 


104423 


65 


MACRO M1113 14- on 84 16:41 
COMPARE EXPD RECV MESSAGE BUFFERS 


007446 


006020 


014322 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A GET STATUS COMMAND PACKET. 


4 
s INPUTS: 


3 
: Ry TSSR CONTENTS 
; Ra ADDRESS OF COMMAND PACKET 
y= 
PKTGETS 
PKTGETS: 
PC ,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
L10005: 
TRAP CsMSG 
3¢ 
sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
H 
; INPUTS: 
8 R1 TSSR CONTENTS 
3 Bd ADORESS OF COMMAND PACKET 
i- 
BGNMSG SFFMSG 
SFFMSG: : 
JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
ENOMSG 
L10006: 


TRAP C$MSG 
-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


SPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
aay FOR ERROR REPORTS 


VINPUTS: 

RL CONTENTS OF TSSR 

Ro LOW ORDER MESSAGE BUFFER 

RS HIGH ORDER MESSAGE BUFFER ADORESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


BGNMSG PKTMES 


PKTMES:: 
J PC ,PRITSSR sPRINT CONTENTS OF TSSR 
R2,RO :LOW ORDER ADORESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
sPRINT THE MESSAGE BUFFER 








SEQ 0058 


TSVS - GLOBAL AREAS 


004737 
016501 
004737 


104423 


MACRO + 14-JUN-84 16:41 


ADDSSR - PRINT TEST ADDRESS AND T 


010352 


000007 
002220 


000010 
014632 


.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


;PRINT ROUTINE TO PRINT THE CONTENTS OF 
‘second leet TEST ADDRESS 


LINPUTS: 

3 

; RS FIRST DEVICE UNIBUS ADDRESS 

: ERRHI HIGH ORDER MEMORY TEST ADDRESS 

3 ERRLO LOW ORDER MEMORY TEST ADDRESS 

= 
BGNMSG ADOSSR 

ADOSSR: : 
JSR PC ,PRITADD sPRINT A TEST ADORESS 
MOV TSSRCRS),.R1 sGET CURRENT TSSR 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
ENOMSG 

L10010: 
TRAP C$MSG 


-SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
3¢ 


;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
SIMPLICIT INPUTS: 


; 
; EXPMSG - EXPECTED MESSAGE BUFFER 
$ RECMSG - RECEIVED MESSAGE BUFFER 
: RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ge¢ 
BGNMSG MSGEXP 
MSGEXP:; : 
MOV @7,RO sASSUME NO EXT FEATURES 
TST EXTFEA sEXT FEATURES SET? 
BEQ S$ sBR IF NO 
MOV #6. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
S$: JSR PC , PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10011: 
TRAP C$MSG 


SEQ 0059 


i 


SS tt 


TSV3 - GLOBAL ARE 
- PRINT FIFO EXP/RECV DATA 


FIFEXP 


1508 


AS 


MACRO M1113 14-JUN-84 16:41 


116 
116 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
3° 


; 
PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
; 


: Ri - BYTE COUNT 
:IMPLICIT INPUTS: 
3 
; EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
: RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
ad 
FIFEXP 
FIFEXP: : 
PRINTX @FIF1MSG,R1 sPRINT BYTES TRANSFERRED 
MOV R1,-CSP) 
MOV OF IF AMSG, -(SP) 
MOV @2,-CSP 
SP, 
TRAP CSPNTX 
ADD #6, SP 
PRINTX @F IF2MSG sPRINT HEADER MSG 
MOV OF IF2MSG, -( SP) 
MOV #1,-C(SP) 
MOV SP, 
TRAP CSPNTX 
ADD 4, 
MOV R1,RO :GET BYTE COUNT 
JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
ENDMSG 
L10012: 
TRAP C$MSG 
045 FIF1MSG: -ASCIZ ' R OF BYTES TRANSFERRED = sD2' 


SNA NUMBE 
045 FIFQMSG: oven -ASCIZ ‘sNBA FIFO DATA BYTES IN ERROR: ' 


SEQ 0060 


TSV3 - GLOBAL AREAS 


012701 
012100 
001410 


dS 


MACRO M1113 14-JUN-84 1 SEQ 0061 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012472 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
3° 


; 
s;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 


; 
sIMPLICIT INPUTS: 
EXPMSG - EXPECTED MESSAGE BUFFER 


; 

; 

; RECMSG 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


BGMMSG MSGSTAT 


MSGSTAT: : 
MOV @STATCOO,R1 sASCII ADORESS TABLE 
10$: MOV CR1)+,RO sDONE ALL MSG LINES? 
BEQ 20% BR IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO, -CSP) 
MOV #1,-C(SP) 
HOV SP, 
TRAP CSPNTX 
ADD o4, 
BR 10$ 300 ANOTHER MSG LINE 
20%: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC , PRMSGE XP SPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10013: 
TRAP C$mMSG 
1%:. IZ ‘sNSA Tape ous Signals in Word #6:' 
2s:. IZ ‘sNsA P <15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>’ 
3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<i1> IMMER <8> ION<S> IFBY<1>' 
4¢%:.ASCIZ ‘sSNA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>‘ 
5%$:.ASCIZ ‘sSNSA Tape Bus Signels in Word @9:' 
O01 AOLEE — DATMIS<7> ILW<6> OUTRDY<5> INRDY<4>' 
VEN 


KS 


* GNSSA PARERR<15> IRESV2<14> IRESV1<13>' 
“= ‘'SNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER <10>' 
1575 013477 045 116 045 4$:.ASCIZ ‘sNSA IWFM => IFMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>’ 
‘SNA ITADO=>IRDY<06> ITAD1=>ION <05> IERASE=>ILOP <04>' 
‘SNA IREW => IDBY<03> IRWU =>IRWD <02> IFEN *=>IFBY <Ol1>' 
a IGO =>IFPT<00>' 


1576 013576 045 116 045 5%:.ASCIZ 
1577 013675 045 116 045 6%:.ASCIZ 
ae 013774 045 116 045 ane” 


TSv3 - GLOBAL ARE AS MACRO M1113 14-JUN-84 16:41 SEQ 0062 
MSGLOOP - T LOOPBACK HEADER AND MESSAGE BUFFERS 
1549 .SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
1550 3¢ 
1551 3 
1552 sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
1553 3 
1554 sIMPLICIT INPUTS: 
1555 3 
1556 ; EXPMSG - EXPECTED MESSAGE BUFFER 
1557 ; RECMSG - RECEIVED MESSAGE BUFFER 
1558 : RCVHIADD- RECEIVED MESSAGE SUFFER HIGH ORDER ADDRESS 
1559 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
| 1560 3- 
1561 013144 BGNMSG MSGLOOP 
013144 MSGLOOP: : 
1562 013144 012701 013206 MOV @LOOPCOD,R1 sASCII ADDRESS TABLE 
1563 013150 012100 10%: MOV CR1)+,RO sDONE ALL MSG LINES? 
1564 013152 901410 BEQ 20% :6R IF YES 
| 1565 013154 PRINTX RO ;PRINT STATUS BIT NAMES 
013154 010046 MOV RO, -(SP) 
013156 012746 000001 MOV #1,-(SP) 
013162 010600 
013164 104415 TRAP  C$PNTX 
013166 062706 000004 ADD 64, 
1566 013172 000766 BR 10$ 300 ANOTHER MSG LINE 
1567 013174 012700 000012 208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
1568 013200 004737 014632 JSR PC, PRMSGEXP ;PRINT EXPD/RELV MESSAGE BUFFERS 
1569 013204 ENDOMSG 
01 L10014 
aes 013204 104423 RAP C$MSG 
1571 013206 013226 013301 013400 LOOPCOD: -WORD 1$,26,36,48,5$,6$,7%,0 
1572 013226 045 6 045 1%:.ASCIZ ‘sNSA Tepe Bus L Loopback Signals in Word #6:' 





TSVS - GLOBAL AREAS 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


012700 
004737 


104423 


LS 


MACRO M1113 14-JUN-84 16:41 SEQ 0063 


000012 
014632 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3¢ 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 


; 
IMPLICIT INPUTS: 


: EXPMSG - EXPECTED MESSAGE BUFFER 
: RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
$ RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3 - 
BGNMSG MSGSUB 
MSGSUB: : 
MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRMSGE XP sPRINT EXPD/RECV MESSAGE BUFFERS 
L10015: 


TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


; 

sPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
; 

sIMPLICIT INPUTS: 

; 


3 ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
8 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
3 Exp - EXPECTED DATA 
; RECV - RECEIVED DATA 
ge 
BGNMSG MEMADD 
MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,.R1 3GET EXPD DATA 
MOV RECV,R2 sGET RECEIVED DATA 
JSR PC ,PRIXOR sPRINT EXPD/RECV 
L10016: 
CS$MSG 


TSV3_- GLOBAL 
PRAMPK 


1641 014104 
1642 014106 
1643 014112 
1644 014116 
1645 014126 
1646 0141352 
1647 014140 
1648 014146 


1657 014230 
1658 014234 


1659 
1660 014236 
1661 


S 


M5 


AREA MACRO M1113 14-JUN-84 16:41 
T - PRINT RAM AND PACKET DATA 


002234 


177777 
177777 


177400 


177777 
177777 


002224 


.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


3? 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


; 
: INPUTS: 


; 
POINTER TO COMMAND PACKET 
t PLICIT —— 
3 RAMDAT DATA AS READ FROM THE RAM 
3 RANSIZ. NUMBER OF BYTES IN PACKET 
8 IF RAMSIZ=0 THEN DEFAULT TO 8. 
F 
; IMPLICIT OUTPUTS: 
8 RAMSIZ SET T0 0 
PRAMPKT : 
SAVREG sSAVE R1-R5 gf NEXT RETURN 
OV @RAMDATA,R1 sDATA FROM THE R 
CLR R2 sINIT BYTE mreCR 
5$: CMPB (R1)+, CRO)> sCOMPARE EXPECTED, RECEIVED 
BNE 7$ ;8R IF NO MATCH 
FORCERROR 7¢,NOTSSR 
Bk 10% 7 Bad 
7$: MOvB -1€R1),R5S ;GET RECV RAM DATA 
MOVB -10R4),R3 ;GET EXPD PACKET DATA 
xOR RS, ;XOR EXPD/RECV 
BIC #177400 ,R3 ;LOW BYTE ONLY 
002226 MOvVB -1(R1),RECV ;GET RECEIVED RAM DATA 
002224 MOvVB -1C€R4), EXPO ;GET EXPECTED RAM DATA 
PRINTB @RAMASC ,R2,RECV,EXPD,.RS 
MOV R3, -C ) 
MOV E€ ~- CSP) 
MOV RECV, -(SP) 
MOV R2,-CSP) 
MOV @RAMASC, -( SP) 
MOV ,- 
MOV SP, 
TRAP CSPNTB 
ADO @14,SP 
108: INC R2 sUPDATE BYTE COUNT 
TST RAMSIZ ;DEFAULT TO 8.? 
BEQ 15% ;BR IF YES 
CMP R2,RAMSIZ ;DONE ALL BYTES? 
BLE 5% ;6R IF NO 
BR 25% 3 
15%: CMP R2, 06. ;D0NE DEFAULT NUMBER OF BYTES? 
208: BLT 5$ ;6R IF NO 
25%: CLR RAMSIZ ;SET DEFAULT RAMSIZ 
RTS PC ;RETURN 


045 RAMASC: —- ‘SNA BYTE: SD28A RAM: SO3SA Packet: BOSSA XOR: 803° 


SEQ 0064 





TSVS - GLOBAL AREAS 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


1 

1674 014322 
1675 014326 
1676 014330 
1677 0143534 
1678 014336 


1683 014372 


1691 014454 
1692 014456 


1697 014476 
1698 014500 
1699 014545 
1700 014603 


MACRO M1115 


003126 


017376 


014603 
000003 


045 
045 


14-JUN-64 16:41 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


THIS ROUTINE PRINTS THE CONTENTS OF 
;THE 7 OR 6 WORD MESSAGE BUFFER RETURNED BY THE TSv-05. 


; INPUT: 

; RO LOW ORDER ADDRESS OF MESSAGE BUFFER 

Bt HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

: THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS : SAVREG sSAVE THE REGISTERS 
MOV ORDER ADDRESS 


RO,RS sSAVE LOW 
TST KTENABLE sADDRESS ABOVE 26K? 
BNE 10% :6R IF YES 
CLR R1 sSET HIGH ORDER yoo To 0 
10%: MOV R1,R3 ;SAVE HIGH ORDER ADDRESS 
ROL RO iSHIFT BIT15 TO C BIT 
R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PROASC,R1,R5 ;PRINT MESSAGE BUFFER ADDRESS 
MOV RS. -CSP) 
MOV 1,-C(SP) 
MOV . - CSP) 
MOV #3, -(SP) 
MOV RO 


PRINTX @PR1 ;PRINT HEADER FOR CONTENTS 
MOV @PRIASC , -( SP) 
MOV 1,-C 
MOV SP, 
TRAP CSPNTX 

04, 
CLR R4 sNUMBER OF THE NEXT WORD 
MOV RS,R1 sCOPY LOW ORDER ADDRESS 
MOV R3,RO sCOPY HICH ORDER ADDRESS 
BEQ + sBR IF NOT ABOVE 28K 
JSR PC, SETMAP sSETUP PAR ADDRESS IN RO 

RS sGET PAR FORMAT 


MOV RO, ADORESS ABOVE 28K 
20%: ppt a ae sPRINT THE CONTENTS OF MEMORY BUFFER 


MOV R4,-C 

MOV @PRASC , -( SP) 

MOV 63,-C ) 

MOV SP, 

TRAP CSPNTX 

ADD #10,SP 

INC R4 sNUMBER OF THE NEXT 

CMP R4,07 sDONE ALL YET ? 

BST 50$ ——" IF ALL DONE 

BLT 20% PRINT FIRST 7 WORDS 

BIT @X2.EXTF ,XST2¢ R3) EXTENDED FEATUTES ON ? 

BNE 20% sPRINT EXTENDED STATUS WORD 
50$: RTS c S RETURN 
PROASC: .ASCIZ ‘sNSA Message Buffer Address = #01805’ 
PRIASC: .ASCIZ ‘sN#A Message Buffer Contents: ‘ 
PRASC: .ASCIZ ‘sNSA WordsD1sA: #0‘ 


TSV3_- GLOBAL 
PRME 


AREAS Mil 
SS - PRINT CONTENTS OF MESSAGE BUFFE 


1713 014632 
1714 014632 
1715 014636 


te) 
1722 rept | 


1734 015010 
1735 015012 
1736 015057 
1737 015115 


MACRO 


002314 
002460 


015115 
000005 


000014 


13 — 


Be 


EVEN 
.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
rROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE SUFFERS 
RO NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
3 RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
F RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
hee 
PRMSGE XP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RS VE NUMBER OF WORDS 
MOV RCVLOADO ,RO sGET RECV LOW ADORESS 
MOV R4 sCOPY LOW ADDRESS 
MOV RCVHIADO ,R1 iGET RECV HIGH ADDRESS 
ROL RO sSHIFT BIT15 TO C BIT 
R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PRMSGO,R1,R4 ‘PRINT MESSAGE BUFFER ADDRESS 
MOV R4,-(SP) 
MOV R1,-(SP) 
MOV »-(SP) 
MOV @3,-(SP) 
mov SP ,RO 
TRAP CSPNTX 
ADO #10,SP 
PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
MOV @PRMSG1. -( SP) 
MOV @1,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO o4,5P 
CLR RE sNUMBER OF THE CURRENT WORD 
mov GE XPNSG .R1 sGET EXPD BUFFER ADORESS 
MOV @RECMSG, 3GET RECV BUFFER ADORESS 
208: MOV (R1),RO sGET EXPD 
MOV CR2),R3 3GET RECV 
XxOR RO,RS 3XOR EXPO/RECV 
PRINTX @PRMNSG2,R4, (R1)+.(R2)+,R3 
MOV R3,- (SP) 
MOV (R2)+,-CSP) 
MOV (R1)+, -CSP) 
MOV R4,-C(SP) 
MOV »- (SP) 
MOV #5, -(SP 
MOV SP RO 
TRAP CSPNTX 
ADO 014,SP 
INC R4 sNUMBER OF THE NEXT 
CMP R4,RS sD0NE ALL YET? 
BGE 50% 3;6R IF YES 
BR 20% 300 ANOTHER 
50%: RTS PC ;RETURN 
PRMSGO: .ASCIZ ‘sNSA Buffer Address = £01805 
PRMSG1: .ASCIZ ‘sNSA — ¥ Buffer Contents: ' 
PRMSG2: .ASCIZ ‘SNA @8D28A EXPD: SO6SA RECV: 


S068A XOR: 806’ 





CA 


T OBAL AREAS " 3 4- -64 16:41 SEQ 7 
bavsce ws _ PRINT EXPD/RECV Cy MESS eubrens” — 
1739 .EVEN 
1740 .SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
1741 3° 
1742 ; 
1743 sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1744 3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1745 H | 
1746 3 RO - NUMBER OF BYTES IN BUFFER 
1747 Hy 
1748 sIMPLICIT INPUTS: 
1749 3 
1750 : EXPMSG - EXPECTED MESSAGE BUFFER 
ave : RECMSG - RECEIVED MESSAGE BUFFER 
1752 s° i 
1753 015202 PRBYTEXP: : } 
1754 015202 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1755 015206 010005 MOV RO,RS sSAVE NUMBER OF BYTES 
1756 015210 005037 002312 CLR PRMNO sINIT ERROR COUNT 
1757 015214 005004 CLR aa 4 CURRENT BYTE 
1758 015216 012701 002314 MOV OE XPMSG ,R1 sGET EXPO BUFFER ADDRESS 
1759 015222 012702 002460 MOV ° sGET RECV BUFFER ADDRESS 
1760 015226 111100 208: MOVB (R1),RO 3GET EXPO BYTE 
1761 015230 042700 177400 BIC €*C<377>,RO sCLEAR UPPER BYTE 
1762 015234 110037 015550 MOvB RO, PRBEXP sSAVE FOR ERROR REPORT 
1763 015240 111203 MOVB (R2),R3 3GET RECV BYTE 
1764 015242 042703 177400 BIC @tC<377>,R3 sCLEAR UPPER BYTE 
1765 015246 110337 015552 Ove R3 ,PRBREC sFOR ERROR REPORT 
1766 015252 xOR RO,R3 3XOR EXPD/RECV 
1767 015262 122122 ChPB CR1)>+,CR2)+ 3EXPD = RECV? 
1768 015264 001431 BEQ 308% s6R IF YES 
1769 015266 005237 002312 INC PRMNO sUPOATE ERROR COUNT 
1770 015272 023727 002312 000010 CMP PRMNO. 06. sPRINTED 8? 
1771 015300 101023 BHI 308 36R IF YES 
1772 015302 278: PRINTX @PRBMSG,R4,PREEXP ,.PRBREC RS 
015302 010346 MOV R3,-(SP) 
015304 013746 015552 MOV PRBREC , -( SP) 
015310 013746 015550 MOV PRBEXP , -( SP) 
015314 010446 MOV R4, -(SP) 
015316 012746 015416 MOV @PRBMSG, -( SP) 
015322 012746 000005 MOV #5, -(SP) 
015326 010600 MOV SP ,RO 
015330 104415 TRAP CSPNTX 
015332 062706 000014 ADO #14,SP 
1773 015336 FORCEXIT 50% ; 880 
1774 015346 000404 BR 35% 3880 
1775 015350 30%: 
1776 015350 FORCERROR 27%,NOTSSR ;880 
1777 015360 35: ) 880 | 
1778 015360 005204 INC Ra sNUMBER OF THE NEXT 
1779 015362 920405 CMP R4,RS s00ME ALL YET? 
17860 015364 002001 BGE 50¢ 3;6P IF YES 
1781 015366 000717 BR 20% 300 ANOTHER 
1782 015370 50$: PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
015370 013746 002312 MOV PRMNO, -( SP) 
015374 012746 015503 MOV @PRBTOT, -( SP) 
015400 012746 0600002 MOV @2,-(SP) 


015404 010600 MOV SP RO 





TSV3_- GLOBAL AREAS 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE 


015406 
015410 
1783 015414 
1764 
1785 015416 
1786 015503 
1787 
1788 015550 
1789 015552 


1803 015554 
1604 015560 
015560 
015560 


S566 
015566 


MACRO 


104415 
062706 000006 
000207 
045 116 
045 116 
000000 
000000 
004737 010020 


104423 


004737 007670 


104423 


045 PRBMSG: 
045 PRBTOT: 
PRBEXP: 
PRBREC: 


3° 


M1113  14-JUN-84 16:41 


BUFFER 


TRAP 
ADD 
RTS 


: .ASCIZ 
b 


SCIZ 


WORD 
. SBTTL 


; 
sPRINT ROUTINE 


: 
3s INPUTS: 


3° 


Ri 
R2 


"JSR 
ENDMSG 


RAP 
- SBTTL 


; 
sPRINT ROUTINE 


3° 
é 
sPRINT ROUTINE 


$ 
s INPUTS: 
3 
3 
3 


- SBTTL 


R4 


D6 


PC sRETURN 


‘SNSA = =6BYTE O8D28A EXPD: SO38A RECV: SO38A XOR: £03' 
‘SNSA NUMBER OF BYTES IN ERROR = #02’ 


0 sEXPD 
to) sRECV 
EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


TC DISPLAY RAM/PACKET DATA 


POINTER TO COMMAND PACKET 


SEQ 0068 


a n-ne = 





TSv3 - GLOBAL AREAS 
RAMERR 


PRINT RAM AND PACKET DATA 


015570 
015570 
015570 
015574 
015574 
015574 


004737 014056 


104423 


015576 


015576 
004737 010352 
01 004737 014056 


015606 104423 


MACRO M1113 14-JUN-64 16:41 


SEQ 0069 


sIMPLICIT INPUTS: 


RAMDATA 
RAMSIZ 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ*0 THEN DEFAULT TO 8. 


; 
: 
; 
; 
s IMPLICIT OUTPUTS: 
; 
; RAMSIZ SET TO 0 
; 


RAMERR 
RAMERR: : 
a PC ,PRAMPKT sPRINT RAM/PACKET DATA 
L10021: 
TRAP C$MSG 
-SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


3° 
;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
TINPUTS: 

; Ra POINTER TO COMMAND PACKET 
SIMPLICIT INPUTS: 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 

IF RAMSIZ*0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 


RAMTADD 


PC ,PRITADD 


sPRINT TEST ADORESS 
sPRINT RAM/PACKET DATA 


“ TRAP  CSMSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 


3° 
é 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


3 

; INPUTS: 

+ 

$ R1 
; R2 


RECEIVED DATA 
EXPECTED DATA 


wee ae ane + ee 


Fé 


TSV3 - GLOBAL AREAS _—“MACRO M1113 14-JUN-84 16:41 SEQ 0070 
RAMEXP - PRINT RAM EXPD/RECV DATA 
1883 ; R4 CONTROLLER RAM ADDRESS 
1884 3° 
1885 | 
1886 015610 BGNMSG RAMEXP 
015610 RAMEXP: : 
1887 015610 042701 177400 BIC @tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
1888 015614 042702 177400 BIC @t0<377>,R2 sSAVE EXPD RAM DATA BYTE 
1889 015620 004737 010144 JSR PC ,PRIRAM sPRINT THE RAM ADDRESS 
1890 015624 004737 010020 JSR PC ,PRIXOR sPRINT THE DATA 
1891 035630 
015630 L10023: 
go 013630 108423 TRAP — C#MSG | 
18 
1893 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
18694 3¢ 
18695 3 
1896 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1897 sAND TIMER A,B HEADER MESSAGE 
1898 3 
1899 s INPUTS: 
1900 3 
1901 ; R1 RECEIVED DATA 
1902 : R2 EXPECTED DATA 
1903 3° 
1904 
1905 015632 BGNMSG TIMEXP 
015632 TIMEXP: : 
1906 015632 PRINTX @TIMSGO ;PRINT HEADER 
015632 012746 015660 MOV @TIMSGO, -( SP) 
015636 012746 000001 MOV #1,-(SP) 
015642 010600 MOV SP ,RO 
015644 104415 TRAP CSPNTX 
015646 062706 000004 ADO 04 ,SP 
1907 015652 004737 010020 JSR PC ,PRIXOR sPRINT THE DATA 
1908 015656 ENDMSG 
015656 L10024: 
sone 015656 104423 TRAP C$MSG 
cont 015660 045 116 045 pty : .ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2’ 
cose .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
1914 3¢ 
1915 3 
aE s;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
: 
1918 ; INPUTS: 
1919 : 
1920 ; R1 CONTENTS OF TSSR 
1921 ; R2 DATA WRITTEN (8 BITS) 
1922 3 
1923 $- 
1924 
1925 015760 BGNMSG BADSSR 
015760 BADSSR: : 
1926 015760 010246 MOV R2,-(SP) 1SAVE DATA TRANSFERRED 


1927 015762 042702 177400 BIC 0177400,R2 sGET JUST ONE BYTE 
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1928 015766 
015766 


MACRO M1113  14-JUN-64 16:41 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


016020 
000002 


000006 
006020 


116 


L10025: 


TRAP 
045 XFERASC: 


G6 


PRINTB @XFERASC ,R2 
Vv R SP ) 


2.- 
@XFERASC, -( SP) 
@2,-(SP) 

SP ,RO 
CSPNTB 
6 , SP 
(SP)+,R2 
PC ,PRITSSR 


C$MSG 
-ASCIZ ‘NSA Data 


sRESTORE R2 
sDECODE TSSR CONTENTS 


Transferred = #03' 


SEQ 0071 


TSV3 - GLOBAL 
GLOBAL SUBROUTINES SECTI 


1974 016100 
1975 016104 
1976 016110 
1977 016112 
1978 016114 
1979 016116 
1960 016120 
19861 016122 


AREAS 


ae M1113 14-JUN-64 16:41 


000000 
016330 
000002 


176277 
002200 


.SBTTL GLOBAL SUBROUTINES SECTION 


i 
: THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


ra SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
3° 


5 

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
sBY WRITING INTO THE TSSR REGISTER. AFTER A. INIT, 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
‘neonate SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


SINPUTS: 
; 


3 RS ADORESS OF FIRST REGISTER 
3 
sOUTPUTS: 
RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 


CLEAR IF FATAL ERROR 


sREPORT FATAL ERROR 


SOF INIT: : 
SAVREG 3 SAVE THE REGISTERS 
MOV #0, TSSRCRS) : OO THE INIT. 
JSR PC ,WAITF 3 WAIT SSR 
MOV TSSACRS), RO sGET THE TSSR REGISTER 
MOV Ra 37S TS 


RO, 
BIC @tC<HIADOR! OFL> ,.R4 
ars @SSR!INBA,R4 sR4 HAS EXPECTED CONTENTS 


R4,RO sONLY EXPECTED eats SET ? 
BEQ S$ ;BRANCH IF OKAY 
cLC sCLEAR THE CARRY FOR ERROR 
BR 10% 3GO TO EXIT 
S$: SEC sSET THE CARRY BIT 
10%: RTS PC sRETURN TO CALLER 


TSV3 - GLOBAL AREAS MACRO a 14-JUN-84 16:41 SEQ 0073 
CMKAMB - CHECK TSSR FOR AMBIGUITY 
1983 .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
1984 
1986 . 
i ; 
1987 3;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
1988 :FOR AMBIGUITY 
1989 3 
1990 3 INPUT: 
1991 3 
1992 3 RO CONTENTS OF TSSR 
1993 3 
1994 s OUTPUT: 
1995 3 
He: 3 RO CONTENTS OF YSSR 
1 3 
1998 3 CARRY SET - NO AMBIGUITY 
1999 3 CLR - AMBIGUOUS CONTENTS 
2000 3 
2001 8- 
2002 
2003 016124 CHKAMB : 
2004 016124 SAVREG sSAVE THE GENERAL REGISTERS 
2005 016130 010004 MOV RO,R4 sCONTENTS OF TSSR 
6132 032700 100000 BIT @SC RO sIS BIT 15 SET ? 
2007 016136 001004 BNE 5% sBRANCH IF YES 
2008 016140 032700 174077 BIT @tC<NBA!OFL !SSR!IHIADOR> ,.RO sANY OTHER BITS SET ? 
2009 016144 001023 BNE 408 sMUST BE AN ERROR 
2010 016146 000424 BR 4s5$ sRETURN WITH SUCCESS 
2011 016150 032700 000200 S$: BIT @SSR RO 3IS READY BIT SET ? 
2012 016154 001011 BNE 10% sBRANCH IF READY BIT at SET. 
2013 016156 032700 000040 BIT @BITS,RO i1S FATAL ERROR BIT ? 
2014 016162 001414 BEQ 40% sERROR IF NOT 
2015 016164 042704 177761 BIC @tCTERCLS ,R4 sCLEAR ALL BUT TERMINATION CODE 
2016 016170 020427 000016 CMP R4,016 3sALL THREE ay. MUST BE SET 
2017 016174 001007 BNE 40% sERROR IF NOT SET 
2016 016176 000410 BR 453% 10K IF ALL Wane SET 
2019 016200 032700 000040 10$: BIT @BITS,.RO 3IS FATAL ERROR BIT SET ? 
2020 016204 001405 BEQ 45% sERROR IF BIT IS >" WITH SSR 
2021 016206 032700 000006 BIT #BIT2!BIT1,RO ‘IS THIS A FUNCTION REJECT 
2022 016212 001002 BNE 45% 3BR, IF TSSR IS OK 
2023 016214 000241 40$: CLC sAMBIGUOUS CONTENTS 
2024 016216 000401 BR 50% 
2025 016220 000261 45%: SEC sSHOW SUCCESS - NO AMBIGUITY 


2026 016222 00207 SO$: RTS PC sRETURN TO CALLER 
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ENAINT ,OSBINT 


2075 016326 


J6 
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ENABLE/DISABLE INTERRUPTS 





-S6TTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY INTERRUPT HANOLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
; 


IOKCKIN=BIT7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 


IOKSTP=BITO 3 EXPECT “STOP” INTERRUPT. 
;INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
INTMASK : BYTE 0 
s INTERRUPT FLAG an thal WE GOT ONE CIF POSITIVE) 


INTFLAG: 
;SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
;SAVE CPU PC 
INTCPC: .WORD 0 
;SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO, -(SP) ;SAVE R 
MOV IVEC,RO GET POINTER TO VECTORS 
MOV @INTR, (RO)+ ISET UP INTERRUPT VECTOR 
MOV @PRIO7, gO) 
MOV (SP)+,RO sRESTORE RO 
MOV (SP), -(SP) 
MOV @0,2(SP) ;SET CPU TO LEVEL 0 
RTI 
INE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV SP), -(SP) 
Mov @PRIO7,2(SP) 
.SBTTL INTR  - INTERRUPT HANDLERS 
es BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
"mov 01, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB INTFLAG ;CLEAR FLAG TO SAY WE cor INTERRUPT 


BITB @IOKSTP , INTMASK SEXPECTING STOP INTERRUWT? 

BNE 1$ s6R IF YES 

BISB @IOKSTP, INTFLAG NO. SET THE ERROR FLAG. 
a REGISTERS, MSG BUFFER, ETC. 


ENOSRV 
L10026: 


RTI 


SEQ 0074 


_——~— -_——--— + — ———— i ee + ee. _———— , 


K6 
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WAITF - WAIT FOR SUBSYSTEM READY 
2077 .SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
2078 F 
2079 ; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
2080 8 
2081 ; INPUTS: 
2082 ; 
2083 3 RS ADDRESS OF FIRST DEVICE REGISTER 
2084 3 
2085 ;OUTPUTS: 
2086 F 
2087 3 RO CONTENTS OF LAST TSSR READ 
2088 3 CARRY SET - READY BIT SET 
2089 ; CLR - TIMEOUT WAITING FOR READY 
2091 016330 000401 WAIT : : BR 1$ sNOP WHEN SUPER FIXED 
2092 016332 BREAK : DO A SUPVSR BREAK FIRST. 
016332 104422 TRAP CS$BRK 
2093 016334 012746 011000 1$: MOV #11000, -( SP) :25-APRIL-83 REV B - 1100 MSEC TIMER 
2094 016340 016500 000002 2s: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
2095 016344 105700 TSTB RO sTEST FOR READY BIT SET 
2097 016346 100420 BMI 3% ; EXIT ON STOP FLAG. 
2098 016350 DELAY 1 ; WAIT 100 USEC 
016350 012727 000001 MOV #1,(PC)+ 
016354 000000 -WORD O 
016356 013727 002116 MOV LSOLY,(PC)+ 
016362 000000 -WORD O 
6364 005367 177772 DEC -6(PC) 
016370 001375 BNE .-4 
016372 005367 177756 DEC -22(PC) 
016376 001367 BNE .-20 
2099 016400 005316 DEC (SP) sREDUCE DELAY COUNT 
2100 016402 001356 BNE 2s FRETRY UNTIL TIMER EXPIRES 
2101 016404 000241 CLC ;C=090, og STILL RUNNING.. 
2102 016406 000401 BR 4$ 3...OR HUNG-UP AFTER 300 MSEC. 
2103 016410 000261 3$: SEC ; C = 1, CONTROLLER IS STOPPED. 
2104 016412 005326 4$: DEC (SP )+ ;REST ORE STACK WITHOUT CHANGING CARRY BIT 
2105 016414 000207 RTS PC 





2147 


016534 
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CHKTSSR - 


MACRO M1113 14-JUN-864 16:41 
CHECK TSSR FOR READY 


016330 
016124 
100000 
074000 


016510 
000200 


016520 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 


3° 
s;THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


SEQ 0076 


a 

3; INPUT: 

3 RS ADDRESS OF CSR REGISTERS 

F 

;OUTPUT: 

3 RO CONTENTS OF TSSR 

8 CARRY SET - OKAY 

3 CLR - NOT READY AMBIGUOUS, OR SC SET 

3 _ 

CHKTSSR: 
JSR PC ,WAITF sWAIT FOR READY 
BCC $ sBRANCH IF TIME OUT 
JSR PC, CHKAMB ot AMBIGOUS? 
BCC 10% 38R IF YES 
BIT @SC RO sSPECIAL CONDITION SET? 
BEQ 15% 3BR 
BIT @<SCE !BIE!RMR!INXM>,RO T ANY ERROR BITS SET? 
BEQ 15% 388 IF NO 

10%: cLCc iSET FAILURE 
BR 20% 

15%: SEC }SET SUCCESS 

20%: RTS PC sRETURN TO CALLER 
.SBTTL XNXM - CHECK FOR NONEXIS TENT MEMORY 


; "ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
ADOPESS. 


; ON RETURN, IF “C” = 1, (R1) = NEXM 


; “C” = 0, ALL ADDRESSES OK. 
3 
sCPLL: MOV ADR1,R1 
; MOV ADR2 ,R2 
; JSR PC,NXM 
; RETURN sTEST “C” AND PROCEED. 
XNXM; MOV $,004 ; SET BUSERR VECTOR. 
MOV @PRIO4 , 806 
CLR R3 sFLAG. 
1s TsT (R1) sTEST THE ADDRESS(ES). 
sIF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
BEQ 38 1BR IF FINISHED — NEXM'S). 
ADO #2,R1 sSET NEXT ADORESS.. 
BR 1$ 3...AND CONTINUE 
2$: COM R3 sGOT ONE, SET FLAG 
MOV #3, (SP) 
RTI 3...AND DISMISS INTERRUPT... 
3%: CLRVEC 04 ;...AND GIVE BACK THE VECTOR. 
MOV 04 ,RO 
TRAP CsCVvEC 
TST R3 sD0ID WE CATCH ONE 7? 
BEQ 04 sNO, "“C“ = 0, SKIP NEXT. 
SEC YES, "CC" = 1, (R1) = NEXM ADOR. 
RTS PC 
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TSTLOOP - CHECK ITERATION COUNT 


2207 016570 
2206 016570 
2209 016572 
2210 016576 


2214 016616 
2215 016620 
2216 016624 
2217 016626 


MACRO M1113 14-JUN-64 16:41 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
CALL: LOOPTO ARG 


i¢ 
; 
; 
; 
; 
; 
; 
TSTLOOP: : 


TST NOITS 3; ITERATIONS INHIBITED? 
BNE i$ ; YES. 
TST Qvep : NO. 
BMI 1$ ;LO0PS DISALLOWED IN QUICK PASS. 
= —— ; BUPP LOOP COUNTER. 
1%: as 5 3;LOOP DISALLOWED, OR DONE. 
2s: SEC ;L00° ENABLED. 
3%: RTS PC . 
.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
"PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG 
ey My TO INDICATE THE NUMBER OF TESTS 
HE CURRENT RUN SEQUENCE. 


IN T SE 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


i 


RO POINTER TO TEST ID ASCIZ STRING 
;OUTPUT: 

RS ADORESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


- © © © © Ge Ge Gs © Ge Ge Ge Ge oe aetna * maleate. 


TSTSETUW: : 
MOV 


RO, -(SP sSAVE THE TEST ID MESSAGE 
CLR SIFLAG ; CLEAR “SOFT INIT” FLAG 
ciLR ERRK ; CLEAR LOCAL ERROR COUNTER. 
CLR EXTA F AR ERROR EXTENSION FLAG. 
CLRB INTMASK ; CLE T MASK (CHECK ERROR) 
MOV UNITN, RO ; GET THE UNIT or. 
ASL RO 3 AND MAKE IT A WORD OFFSET. 
TsT NODE V : DID STARTUP FIND THE DEVICE? 
BEQ 4s ; BR IF YES 
BPL 3% ; BR IF NOT IOLE 





SEQ 0077 


N6é 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
2218 016630 052760 160000 003170 BIS @160000, .ERTABL(RO) ; ©LAG ERROR IN THE ERROR TABLE 
2219 016636 ERROF 1,NXR,NXRERR ; NO DEVICE HERE -- PRINT IT 
016636 104455 TRAP CSEROF 
016640 000001 wORO 
016642 003734 WORD WNXR 
016644 005732 WORD NXRERR 
2220 016646 000407 BR 2s 
2221 016650 052760 160001 003170 53%: BIS #160001 , ERTABL (RO) ; FLAG ERROR IN THE ERROR TABLE 
2222 016656 ERROF 2,NOINIT ; DEVICE NOT IDLE 
016656 104455 TRAP CSEROF 
016660 WORD 
016662 004331 WORD NOINIT 
016664 000000 .WORD O 
2223 016666 012737 177777 003104 2%: MOV @-1,0UFLG ; DROP THE UNIT 
2224 016674 bOdU UNITN 
016674 013700 002174 MOV UNITN. RO 
016700 104451 TRAP C#000uU 
2225 016702 DOCLN ; ABORT THE PASS 
016702 104444 TRAP CS0CLN 
—_— 016704 0004235 BR $ 
2228 016706 4s: RFLAGS RO ; GET THE OPERATOR FLAGS. 
016706 104421 TRAP CS$RFLA 
2229 016710 032700 001000 BIT @PNT ,RO ; PRINT THE TEST NUMBERS? 
22350 016714 001412 BEQ 1$ ; BR IF NO 
2231 016716 011600 MOV (SP),RO ;GET THE ID MESSAGE 
2232 016720 PRINTF @TNAM,RO sDISPLAY THE TEST ID 
016720 010046 MOV RO, -( 
016722 012746 016764 MOV . -(SP) 
016726 012746 MOV @2,-(SP 
016732 010600 MOV 
016734 104417 TRAP CSPNTF 
016736 062706 000006 ADD 6, SP 
2233 016742 005237 002206 1%: INC TSTCNT ; BUMP TEST COUNTER. 
2234 016746 SETPRI iPRI ;PRIORITY THAT OF DEVICE 
016746 013700 002204 MOV IPRI,RO 
016752 104441 TRAP CS#SPRI 
2235 016754 005726 S$: TST CSP )+ 3sFIX UP THE STACK 
2236 016756 013705 002200 MOV CSRADOR ,RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 
2237 016762 000207 RTS PC 
2238 016764 045 123 045 TNAM: -ASCIZ ‘SSSTSA Test’ 
2239 -EVEN 
aoe .SBTTL TSTEND - PRINT ERRORS RECEIVED 
3 
2242 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
oer i IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
2245 017000 TSTEND: RFLAGS RO 
017000 104421 TRAP CS$RFLA 
2246 017002 030027 020000 BIT RO, IER 
2247 017006 001412 BEQ 1$ ; BR IF “IER” NOT SET. 
2248 017010 PRINTF #€SUM,ERRK ; PRINT ERROR COUNT. 
017010 013746 017036 MOV ERRK , -( SP) 
017014 012746 017040 MOV @ESUM, -CSP) 
017020 012746 000002 MOV @2,-(SP) 


SP, 
017026 1044: TRAP CSPNTF 


TSVS - GLOBAL AREAS MACRO M1113 14-JUN-64 16:41 
TSTEND - PR RECEIVED 


INT ERRORS 


017030 062706 000006 
2249 017034 000207 


2250 
2251 017036 000000 


2252 017040 045 101 040 


2253 017057 105 122 
2254 


122 


ADD 
18: RTS 


ERRK: 0 

ESUM: -ASCIZ 

EMAXDU: .ASCIZ 
EVEN 


06, SP 
PC 


s LOCAL ERROR COUNT. 
/6A SOBA ERRORS/ 
ZERROR LIMIT REACHED -- DROPPING UNIT/ 


TSVS - GLOBAL AREAS 
INCERK - 


INCREMENT LOCAL ERROR COUNT 


2269 017156 
2270 017160 
2271 

2272 017162 
2273 017164 
2274 017170 
2275 017172 


2260 017216 


7254 
2288 017256 
2289 017260 


MACRO 111115 


177777 


002174 


14-JUN-64 16:41 


INCERK 


Cy) 


SEQ 0080 


- INCREMENT LOCAL ERROR COUNT 


3° 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


‘- 
INCERK : 


18: 


CKEMAX : 


002164 


18: 


003104 


2s: 


INC 


ERRK 

RO, -(SP) 
UNITN,RO 
RO 

@ERTABL ,RO 
(RO) 
@7777,CRO) 
1% 

(RO) 
(SP)+,RO 
PC 

RO, -(SP) 
UNITN,RO 
RO 


ERTABL(RO),RO 


#170000 ,RO 
RO, GERRMAX 


1$ 
ERRK ,LERRMAX 
2s 


RO 

CSRFLA 
@IDU,RO 
2s 
@-1,O0UFLG 
4,EMAXDU 


CSEROF 





INCREMENT LOCAL ERROR COUNT 
SAVE RO 


OID WE OVERFLOW THE FIELD? 
BR IF NO. 
YES -- — IT WP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 
SAVE RO 
= UNIT NUMBER 
ee ae 
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BR IF YES 
Is .ece. LIMIT EXCEEDED FOR THIS TEST? 
GET OPERATOR FLAGS 
Is IF ves. INHIBITED? 


BR I 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


TSV3 - GLOBAL AREAS 
cKDROP - CHECK IF UNIT 


2332 017374 


D7 


MACRO M1113 14-JUN-64 16:41 
SHOULD BE DROPPED 


000040 


177777 003104 
002174 


016054 


003124 
000001 177572 


003124 


000000 177572 


-SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 


3¢ 
: CHECK IF UNIT SHOULD BE DROPPED 


t - 
CKDROP: MOV RO, -(SP) 
F 1$,NOTSSR 
RFLAGS RO 
‘AP CSRFLA 
BIT @10U,RC 
BNE a 


000U ITN 
MOV UNITN,RO 
TRAP Cc 
DOCLN 
TRAP C$0CL 

1%: MOV (SP)+,RO 
RTS 


sABORT THE PASS 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; 
3 SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


; 
CONFIG: 
PC, SOF INIT 


RTS 
-SBTTL KTON,KTOFF 
; 
3 SUBROUTINE - ENABLE MEM MGT. 
; 
KTON: TST KTFLG 
BEQ 


1$ 
MOV #1, SRO 
1%: RTS PC 


; 
s SUBROUTINE - DISABLE MEM MGT. 


é 
KTOFF: TST KTFLG 


BEQ is 

NOP 

NOP 

MOV #0, SRO 
1%: RTS PC 





ENABLE /DISABLE MEMORY MANAGEMENT 
GOT KT? 

NO. 

YES. ENABLE KT11. 

GOT KT11? 

NO. 


DISABLE KT. 
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SE TMAP NG 


- SETUP PAR6 MAPPI 


2334 .SBTTL SETMAP - SETUP PAR6 MAPPING 
2335 . 
2336 he , 
2337 : 
2338 ;THIS ROUTINE SETS UP KERNEL PAR6 TP HANOLE 
2339 3AN 16 BIT ADORESS. THE OFFSET INTO THE PAGE 
2340 :IS RETURNED BIASED TO PARE. 
2341 3 
2342 ; INPUTS: 
2343 3 
2344 3 RO HIGH ORDER ADDRESS BITS 
2345 3 R1 LOW ORDER ADDRESS BITS 
2346 3 
2347 ;OUTPUTS: 
2348 3 
2349 8 RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
2380 3 CARRY SET IF SUCCESS 
2351 F CLR IF ERROR 
2352 as 
2353 017376 SETMAP ; 
2354 017376 SAVREG sSAVE R1-R4 UNTIL NEXT RETURN 
2355 017402 005737 003124 TST KTFLG sSYSTEM HAVE ABOVE 28K? 
2356 017406 001433 BEQ 10% ;8R IF NO 
2357 017410 010102 MOV R1,R2 sSAVE LOW ORDER BITS 
2358 -REPT 6 
2359 ASR RO sCONVERT WORD ADORESS TO 32W BLOCKS 
oor ROR Ri sMAKE IT DOUBLE PRECISION 
2362 017442 042701 000177 BIC @177,R1 sALINE FOR LOWER 4K BOUNDARY 
2363 017446 020137 003124 CMP R1, KTFLG sHIGHER THAN EXISTING MEMORY? 
2364 017452 103011 BHIS 10$ 38R IF YES 
2365 017454 010137 172354 MOV R1, BEKIPARG sSETUP MAPPING ne eg PAR6 
017469 0427 160000 BIC #160000 ,R2 sSETUP DISPLACEMENT PAGE 
2367 017464 062702 140000 ADD #140000 ,R2 3ADO IN PAR6 BIAS 
368 017470 010200 MOV eRO sRETURN IN RO 
2369 017472 000261 SEC sSET SUCCESS 
2370 017474 000401 BR 15% F 
2371 017476 000241 108: CLC 3SET FAILURE 
2372 O1 000207 15%: RTS PC sRETURN 
os -SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
%¢ 
ase ; FILL MEMORY WITH A BACKGROUND PATTERN 
3 
2377 s INPUTS 
2378 ; 
2379 F RO = BACKGROUND PATTERN 
2380 : FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
ta 3 KTFLG =» SET TO HIGHEST MEMORY LOCATION IF > 28K 
3 
2383 ; OUTPUTS: 
2384 3 
2385 ; NONE 
2386 s- 
2387 3 
2388 017502 FILLMEM: 
2389 017502 sSAVE Ri- m ore. NEXT RETURN 


PC ,KTOFF 


' ;DISABLE K 
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FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


2392 017514 013701 003116 

2393 017520 013702 003120 

2394 017524 010321 10$; 
. 005302 

2397 017532 005737 003124 


2399 017540 004737 017336 
2400 005090 


017544 

2401 017546 013701 003144 
2402 000006 

2403 

2404 

2405 

2406 

2407 017616 004737 017376 


2408 
2409 017624 020027 160000 


2412 172354 
2413 017644 023737 172354 003124 


2421 017700 005737 003140 35$: 


2424 017715 103001 

2425 017716 

2426 017720 012737 172516 40%: 
7 017726 000137 017622 45% 

2428 017732 004737 017354 50$ 


2429 017736 000207 55%: 
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AR6 
@OKIPARG ,KTFLG 


50% 
T23A 
35% 


SRO,R4 
@177761,R4 
@ 4 


SEQ 0085 


sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND WORD 

sDONE ALL MEMORY IN FREE SPACE? 


sHIGH ORDER ADDRESS START 
1GET >26K START ADORESS (IN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADORESS 
sEND OF PAR6 MAPPING AREA? 


36R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
SPOINT TO NEXT 4K BLOCK >28K. 
END MEMORY ? 


KEEP GOING 
sGET SRO CONTENTS 
sCLEAR ALL “ PAGE NUMBER 
3SEE IF PAGE 7 
SEXIT IF THERE 
311/238? 
3NO KEEP GOING 
sREACHED 18 BITS? 
3;YES 
3sNO KEEP GOING 
sSET 22 BIT ws Hope 
sKEEP GOING ON ETC. 
; DISABLE KT. 


2453 017740 
2434 017740 
2455 017744 


2486 12 
2487 020114 
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MACRO M1113 14-JUN-84 16:41 
ARE MEMORY TO BACKGROUND PATTERN 


000177 


017376 


002230 


ee Ge Ge Gs Gs Ge Ge Gs os Ge Gs Ge Gs GF Ge oe Gt Ge oe 


108: 


15%: 


30%: 


-SBTTL 


INPUTS: 
RO = BACKGROUND PATTERN 


FREE 
KTFLG 


OUTPUTS: 


CARRY 
CARRY 


ERRHI 
ERRLO 
EXPD 
RECV 


CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3¢ 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 


* FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


- SET IF NO ERROR 


- CLR IF ERROR 
IMPLICIT QUTPUTS: 


ERROR HIGH ADDRESS 


- ERROR _OW ADDRESS 
- EXPECTED DATA 
- RECEIVED DATA 
sSAVE R1-RS UNTIL NEXT RETURN 
RO,R3 SCOPY Yay hisses 
PC ,KTOFF sOISABLE 
FREE ,R1 3GET FIRST "bree LOCATION 
FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28K. 
R3,CR1) sFREE SPACE LOCATION EQUAL TO EXPD? 
15% 38R IF YES 
R1,ERRLO sSAVE ADDRESS IN ERROR 
ERRHI sNO HIGH s 
R3,EXPD sSAVE EXPD FOR ERROR REPORT 
oo sSAVE RECV FOR ERROR REPORT 
8 
C(R1)- sPOINT TO NEXT ADORESS 
R2 sDONE ALL MEMORY IN FREE SPACE? 
10% s6R IF NO 
KTFLG s GOT KT? 
55% : NO. GET OUT. 
PC ,.KTON s YES. 
sHIGH ORDER ADDRESS STAR 
eee sGET >26K START ADDRESS CN 32wW BLOCKS) 
R1 sCONVERT BLOCKS TO WORDS 
RO sMAKE IT DOUBLE PRECISION 
@177,R1 sALINE 4K BOUNDARY 
»- (SP) sSAVE HIGH ORDER 
R1,-CSP) sSAVE LOW ORDER 
SE sSETUP PAR6 MAPPING REGISTER 
»R4 sCOPY ADDRESS BIASED TO P 
(SP)+,R1 sRESTORE LOW ORDER PAR6 FORMAT 
(SP)+,RO sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
R3,CR4) sABOVE 28K LOCATION EQUAL EXPD? 
$ 3;6R IF YES 
RO, ERRHI sSAVE HIGH ORDER IN ERROR 
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| CMPNEN COMP 


010137 


MACRO M1113 Sic 
ARE MEMORY TO BACKGROUND PATTERN 


002232 
002224 
002226 
000002 


000002 
160000 


000200 
172354 
017354 


017354 


000012 


172354 
003124 


MOV R1,ERRLO sSAVE LOW ORDER IN ERROR 


MOV R3,EXPO sSAVE EXPD FOR ERROR REPORT 
~¥y — sSAVE RECV FOR ERROR REPORT 
' 

32%: ADD 62,R1 ee NON PAR6 ADDRESS 
AoC RO sMAKE IT DOUBLE PRECISION ADD 
ADD @2,R4 PDATE PAR FORMAT ADDRESS 
CMP R4, #160000 sEND OF PAR6 MAPPING AREA? 
BLO 30% 36R IF NO 
SUB #20000 , R4 sBACKUP INTO PAR6 MAPPING BEGIN 
ADO @200,@@KIPARG ;POINT TO NEXT 4K BLOCK >28K. 
CMP QeOKIPARG,KTFLG ;END A ee ? 
BLOS 30$ i8R IF 

50$: JSR PC ,.KTOFF 3 TURN or MEMORY MAPPING 
CLC 3SET FAILURE 
BR 60$ 3 

55$: JSR PC .KTOFF sTURN OFF MEMORY MAPPING 
SEC sSET SUCCESS 

608: RTS PC 
.SBTTL REGSAV - SAVE R1-RS ON STACK 

3¢ 

3 

sROUTINE TO 


SAVE Ri THROUGH RS ON THE STACK 
: 
sCALLING SEQUENCE: 


: 

8 JSR RS ,REGSAV 

; 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
iTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


; THIS ROUTINE SHOULD ONLY BE a FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 

i 

3° 


REGSAV: 

MOV R4,-CSP) 
MOV R3,-CSP) 
MOV R2,-CSP) 
MOV RS, -CSP) 
MOV 10.(SP), 
JSR PC.@(SP)-+ 
MOV (SP)+,R1 
MOV (SP)+,R2 
MOV (SP)+,R3 
MOV (SP)+,R4 
MOV (SP)+,RS 
RTS PC 
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GETPAT - GET 8 BIT PATTERN FROM OPERATOR 





104443 
000406 
020310 
000022 
020312 
000377 
000000 
000377 


103367 
013700 
000207 


105 
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020310 


116 


.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3¢ 
sROUTINE TO REQUEST AN 6 BIT DATA PATTERN FROM THE OPERATOR 
; 
s INPUTS: NONE . 


; 
tiene 
RO OCTAL NUMBER FROM THE OPERATOR 
;CALLING SEQUENCE : 
JSR PC,GETPAT 
GETPAT: : 
SAVREG sSAVE THE GENERAL REGISTERS 
1%: GMANID DATASC,PATDAT,O, 377, 0,377,NO 
TRAP C$GMAN 
BR 10000$ 
-WORD PATDAT 
-WORD TSC 
-WORD DATASC 
-WORD 377 
-WORD TSLOLIM 
-WORD TSHILIM 
100008 : 
ee 1$ sRETRY IF ERROR 
MOV PATDAT ,RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


3¢ 
sLOCAL DATA AREA 
3 - 


PATDAT: .WORD 0 i TEMPORARY STORAGE FOR DATA 
124 DATASC: —— ‘ENTER DATA PATTERN 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
2569 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
2570 i¢ 
2571 sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
2572 : 
2573 ; INPUTS: 
2574 ; RO ADDRESS OF ASCIZ STRING OF MENU 
2575 ; R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
2576 ; | 
2577 ;OUTPUTS: 
ere : RO NUMBER OF THE OPERATOR'S SELECTION | 
he 

2580 020336 GETSEL:: | 
2581 020336 SAVREG sSAVE GENERAL REGISTERS i 
2582 020342 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
25863 020344 010203 1$: MOV R2,R3 sSTART OF MENU STRING 

020346 005713 2s: TST (R3) sEND OF ASCII ? 
2585 020350 001412 BEQ 3% sBRANCH IF ALL LINES DISPLAYED 
2586 020352 PRINTF @#SELASC,(R3)+ ;DISPLAY THE MENU 

020352 012346 MOV CR3)+,-CSP) 

020354 012746 020522 MOV @SELASC, -( SP) 

020360 012746 000002 MOV @2,-(SP) 

020364 010600 MOV SP ,RO 

020 104417 TRAP CSPNTF 

020370 062706 000006 ADO ° 
2587 020374 000764 BR 2s 
2588 020376 3$: MENASC ,MENRES,.D,-1,0, -1,NO 

020376 104443 TRAP C$GMAN 

020400 000406 BR 10001$% 

020402 020556 .WORD MENRES 

020404 000042 .WORD TSCODE 

020406 020527 . WORD sc 

020410 177777 -WORD -1l 

020412 000000 -WORO TSLOLIM 

020414 177777 . WORD TSHILIM 

02041 10001$: 
2589 020416 BNCOMPLETE 1$ sRETRY IF ERROR 

020416 103352 Bcc $ 

013700 020556 MOV MENRES ,RO ;GET THE OPERATOR'S REPLY 

2591 020424 020001 CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
2592 020426 101411 BLOS sé sBRANCH IF OK 
2593 020430 PRINTF sDISPLAY ERROR MESSAGE 

020430 012746 020454 MOV OMENERR , -( SP) 

020434 012746 000001 MOV #1,-CSP) 

020440 010600 MOV SP ,RO 

020442 104417 TRAP CSPNTF 

020444 062706 000004 400 04,SP 
2594 020450 000735 BR 1$ sRETRY 
2595 020452 000207 S$: RTS PC s;RETURN TO CALLER 
2596 020454 045 116 045 MENERR: .ASCIZ ‘SNSA #¢¢ Menu Selection Too Large ++’ 
2597 020522 045 116 045 SELASC: .ASCIZ ‘sNsT’ 
2598 020527 105 156 164 MENASC: oy ‘Enter Menu Selection: ' 
2600 020556 000000 MENRES -WORD O 
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CHKMAN 


ee + + Se ee ee = 


IK 7 
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- CHECK MANUAL INTERVENTION LEGALITY 


116 


-SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3* 

; ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
: 

; INPUT: 


OUTPUT: 

H 

: CARRY 0 MANUAL INTERVENTION NOT ALLONED 
; 1 MANUAL INTERVENTION IS OK 


;SIDE EFFECTS: 


é 
3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
F NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3 ALLOWED. 
3 
CHKMAN: : 
SAVREG sSAVE THE REGISTERS 
MANUAL sSEE IF MANUAL INTERVENTION OK 
TRAP CS$MANI 
selec Fa sBRANCH IF ALLOWED 
PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN, -( SP) 
MOV @1,-C(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD »SP 
CLC ;CLEAR CARRY FOR ERROR 
1$: RTS PC ;RETURN 


SEQ 0088 


NOMAN: .ASCIZ ‘sSNA #e¢ Manual Intervention not Allowed - Test Aborted «**' 
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2674 021066 
2675 021066 
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AREAS 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 


003116 
003120 
003126 


- SBTTL 


L/ 


ENVIRN 


a ce a + 


SEQ 0089 


- SETUP FREE DIAGNOSTIC SPACE 


SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
ENVIRN: _—— RO 


10$: 


15%: 


4Cc$: 


#2 

(RO), FRESIZ 
4 ,FRESIZ 
LSUNIT ,R2 
#7 ,FRESIZ 
Re 


T23A 
#170000 ,L $HIME 
0716186 

40% 

T238 

061869 

PC 


s GET 1ST FREE ADDRESS... 
3...AND WORD COUNT. 


s GET NUMBER OF UNITS 
s TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 


sORSRESSESSSESEEESSESSEESEEREEEEEEEDEEEEEEES 
SS 


sSAVE PCR CONTENTS 


OR SE 
sTELL THE SYSTEM TYPE 
;RETURN 
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KTINIT 


2701 021172 
2702 021176 
2703 021200 
2704 021204 
2705 

2706 021206 
2707 021212 
2708 

2709 021214 
2710 

2711 021220 


MACRO M1113 14-JUN-84 16 


741 
- SETUP KT11 MEMORY MANAGEMENT REGISTERS 
-SBTTL KTINIT 


3? 


; 
sROUTINE TO INIT KT-11 


KTINIT: 

003124 CL 
003126 CLR 
002120 001577 CMP 

BLOS 

MOV 
1206 000004 MOV 
177572 TST 
0021 003124 MOV 
000177 003124 BIC 
HOV 
CLR 
172340 MOV 
077406 177740 1% MOV 
MOV 
000200 ADO 
002000 CMP 
BNE 
177600 MOV 

BR 
021214 es MOV 
RTI 
000004 6%: MOV 
9$: RTS 


KTFLG 
K TENABLE 
. — .@1577 


@PERRVEC ,RO 
2% , BOERRVEC 
@@SRO 


LSHIME ,KTFLG 
#177, KTFLG 

RO, B@ERRVEC 

RO 

@KIPARO ,R1 
#77406, -40(R1) 
RO,(R1)+ 

#200 ,RO 

RO, #22000 


1$ 

#177600, -(R1) 
9% 

06%, (SP) 


RO, B@ERRVEC 
PC 


- SETUP 


KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY ( >26K)? 


NO. 
SAVE OLD ee ts by PTR. 
SET ERR VEC P 

GOT KT11? 

(TRAP IF NO). 

YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 


RO = AR DATA. 
Ri = KI REGS PTR. 


at "1/0"? 
YES. SET KTPAR7 FOR I/O. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLD ERR VEC PTR. 
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2763 021312 
2764 

2765 021312 
2766 021316 
2767 021322 


2768 021326 
2769 021332 


AL AREAS 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


002220 
100206 
021304 
000006 
100010 
021274 
010742 


; SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
: Requires thet SOFINIT and WRICHR have been dore previous to call. 
; 


webs 
RS CURRENT UNIT NUMBER 
:OUTPUTS 


The Extended Features Switch is set. 


INVERT 
TST EXTFEA ; IS SWITCH SET? 
BNE 1s : YES,EXIT STAGE RIGHT! (or the next one outa town! ) 
MOV #100206 , CMDPK ; WRT SUB-SYS MEM CMD 
MOV ~CMOPKT +2 : MSG BUF ADOR 
MOV 66 , CMDPKT +6 ; BYTE COUNT 
MOV #100010, WSMBK 3; INVERT THE SWITCH 
MOV @CMDPKT, 3; SET CMDPKT INTO R4 
JSR PC, WRTCHR ; 00 IT 
1%: RTS ; RETURN 
3 COMMAND PACKET. 
= <,¢3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
CMOPKT:: O 31ST WORD IS TSOS COMMAND. 
0 32ND WORD IS THE BUFFER LOW ADDRESS. 
t¢) 33RD WORD IS THE BUFFER HIGH ADDRESS. 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
WSMBK:: O 31ST WORD:: SEL O 
0 F WORD:: SEL 2 
0 33RD WORD:: SEL 4 
. EVEN 
2 
SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
3 
3 
3; INPUTS: 
sOUTPUTS: 
; The NXMFLG is set if we can test. 
; The NXMLO and NXMHI addresses are setup. 
g°= 
MEMCK ; 
SAVREG ;SAVE THE REGISTERS 
CLR NXMFLG ;CLEAR THE FLAG 
CLR NXMLO ;CLEAR THE TEST ADDRESS LO 
CLR NXIMHI ;CLEAR THE TEST ADDRESS HI 
TST T238 :IS IT A 11/238? 


pte 021560 000207 
2615 021562 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
2770 021336 001407 BEQ 1% i NO 
2771 021340 023727 002120 007777 CMP LSHIME , 07777 5 GREATER THAN 128K 
2772 021346 103406 BLO es 
2773 021350 004737 021466 JSR PC .NXMTST sSETUP THE 
2774 021354 000427 BR 13% sSET THE FLAG AND EXIT 
2775 021356 005737 003136 1$: TST T23h sIS IT A 11/23A? 
2776 G21362 001415 BEQ sNO 
777 021364 023727 002120 005777 2%: CMP USHIME, 05777 sGREATER THAN 96K 
2778 021372 101023 BHI 14% sYES, — WITH 126K MEMORY 
2779 021374 023727 002120 003777 LOHIME , 03777 GREATER HAN 64K BUT LESS THAN 92? 
2780 021402 103403 BLO at iNO, cx 
27861 021404 004737 021466 JSR PC .NXMTST sSETUP THE ADORESS 
2762 021410 000411 BR 13% sSET THE FLAG AND EXIT 
2763 021412 023727 002120 001577 4%: LSHIME ,@1577 sGREATER THAN 24K BUT LESS THAN 64K? 
2784 021420 103410 BLO 4g iNO, TELL THEM — EXIT WITH FLAG CLEAR 
2785 021422 004737 021466 JSR PC .NXMTST sSETUP THE ADORESS 
2786 021426 062737 000077 003134 ADO 077 .NXMHI iFOOL THE 11702 € 11/03 
2787 021434 005237 0031350 13% INC NXMFLG 3sSET THE FLAG 
2788 021440 000411 BR 158 sEXIT 
2789 021442 000410 148; 158 sNOP FOR PRINTOUT 
2790 021444 PRINTF @NOMEM sTELL THEM € EXIT eeeND PRINTececce 
021444 012746 005454 MOV @NOMEM, -( SP) 
021450 012746 000001 MOV #1, -(SP) 
021454 010600 MOV »RO 
021456 104417 TRAP CSPNTF 
021460 062706 000004 ADD o4,SP 
2791 021464 000207 158: RTS PC 3;RE TURN 
2792 
2793 3° 
Shed 3 SUBROUTINE TO SETUP THE NXM ADORESS FOR TESTING 
$ 
Ske 3s OUTPUTS: NXMLO,NXMHI sSETUP WITH NXM ADDRESS 
$ 
2798 3- 
2799 
2600 021466 013701 002120 NXMTST: MOV LSHIME ,R1 sGET TOP OF MEMOR 
2801 021472 062701 000200 AD) #20081 sMAKE IT 1/0 BLOCK OR OTHER NXM 
2802 021476 042701 000177 BIC #177,R1 
28603 021502 010102 MOV R1,R2 sRESAVE RESULTS 
2804 -REPT 6 
2605 ASL Ri sPUT IN PLACE FOR XFER 
2607 021520 010137 003132 MOV R1,NXMLO sSAVE TEST ADORESS LOW 
2808 000012 REPT 10. 
2609 ASR R2 sPUT IN PLACE FOR XFER 
2610 .ENDR 
28611 021550 042702 177700 BIC #177700 ,R2 sD0N'T WANT ILA! 
28612 021554 010237 003134 MOV R2 ,NXMHI sSAVE TEST ADORESS HIGH 
RTS PC ;RE TURN 





C& 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 16:41 SEQ 0092 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
: .TITLE TSV4 - MISCELLANEOUS SECTIONS 
9 021562 BGNMOD TSv4 
021562 TSV4:: 
10 
16 
17 
i8 
19 .SBTTL PROTECTION TABLE 
20 021562 BGNPROT 
021562 LSPROT: : 
21 021562 177777 #+%177777 «177777 . WORD “Bs “te “dy -t sNO DEVICE PROTECTION REQUIRED. 


22 021572 ENDPROT 


000035 


000037 


002172 


002012 


003170 
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INITIALIZE SECTION 


-SBTTL INITIALIZE SECTION 


THE INITIALIZE SECTION a THE CODING THAT IS PERFORMED 
‘ THE BEGINNING OF EACH PASS. 


VIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

; 

5+ 


3¢ 
sINSERT TEMPORARY JUMP TO ODT 
ge 


BGNINIT 
LSINIT:: 
40%: CLR EXTFEA 
CLR LG 
MOV @EPRT1 ,EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” og 
CLR KTENABLE ICLEAR TEST ABOVE 26K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF ‘ I 
MoV @€F .CONTINUE .RO 
TRAP CSREFG 
BNCOMPLETE 1% 
BCC is 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 4% 36R IF NO. 
TST OUFLG sOROPPED UNIT? 
BMI NXTU 38R IF VES 
MOV UNITN,R1 
ASL Ri 
TST ERTABL(R1) 
BEQ TU 
BIT 4B1T14 ,ERTABL(R1) ;DROPPED? 
BNE NXTU 
EXIT INIT 300 NOTHING IF “CONTINUE”. 
TRAP CSExIT 
-WORD 1100350- 
1%: READEF @€F .NEW 
MOV @€F .NEW,RO 
TRAP CSREFG 
SNCOMPLETE NXTU 3 TAKE NEXT UNIT IF NOT NEW PASS. 
Bcc NXTU 
READEF EF .START 
MOV @€F .START,RO 
TRAP CSREFG 
BCOMPLETE 2% 
S 2s 
ADEF #€F .RESTART 
MOV @€F .RESTART RO 
TRAP CSREFG 
BNCOMPLETE 31% 
BCC 
2s: 31ST PASS, BUS-INIT... 
sBUS RESET. 


BRESET 
TRAP CéRESET 
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INITIALIZE SECTION 


| 
65 021734 005037 002206 CLR —sTSTCNT NUMBER OF TESTS RUN IN PASS | 
66 021740 005037 002214 CLR —sC FTF LG iCLEAR FATAL ERROR COUNT | 
67 021744 005037 003136 CLR —s- T23A }CLEAR 11/23A FLAG | 
68 021750 005037 003140 CLR —s-:* 1238 CLEAR 11/238 FLAG 
69 ; MOV -—s- #340, -( SP) 
a ; MOV —«s-@208.. -( SP) sRETURN TO DEBUGGER 
1 : ee) 1 :@QENTER THE DEBUGGER 
72 021754 005037 003372 CLR ss SKIPT CLEAR THE SUBTEST “SKIPPER” 
73 021760 208: 
7a 021760 12737 177777 002176 MOVs @-1, QVP +...QUICK VERIFY... 
75 021766 004737 020710 JSR PC ENVIRN iSET ENVIRONMENT. 
7% 021772 004737 021070 JSR ss PCKTINIT INITIALIZE KT MEMORY MANAGEMENT 
77 021776 012700 003170 MOV TABL ,RO 
78 022002 30s: CLR ‘ CLEAR THE ERROR TABLE 
79 022004 7 003370 CHP «RO, @ERTABE 
80 022010 103774 BLO Of s«é380) 
81 022012 BR as 
022014 005037 002176 31s: CLR @vP 
63 022020 000137 022079 Ps PASRRPT :GO REPORT THE STATUS 
85 022024 4$: 
022024 012737 177777 002174 NEWPAS: MOV —s @-1, UNITN LINIT UNIT NUMBER 
87 022032 005037 002212 CLR —DEVCNT CLEAR COUNT OF DEVICES RUNNING 
88 022036 NXTU: BREAK 
022036 104422 TRAP C$BRK 
89 022040 005237 002174 INC _-UNITN ;... AND SET NEXT UNIT NUMBER. 
90 022044 023737 002174 002012 CMP —sUNITN, LSUNIT 
91 022052 10342 BLO -—- SETU 
022054 012737 177777 003104 MOV —Ss- @-1, DUFLLG 
93 022062 BR 118 
022064 N ;ABORT, NO MORE UNITS. 
194444 TRAP C$DCLN 
000240 118: NOP 
96 022070 PASRPT: 
97 022070 023727 002012 000001 CHP sLOUNIT, 01 ;HOW MANY UNITS SELECTED? 
98 022076 101752 BL NEWPAS 3@R IF ONLY 1 
99 022100 005737 002212 TST —_—*OEVCNT ;ARE ANY STILL RUNNING? 
100 022104 001747 BEQ § NEWPAS :8R IF NO 
101 022106 RFLAGS RO 
022106 104421 TRAP CORFLA 
102 022110 032700 000100 BIT #ISR,RO :SHOULD WE PRINT STATISTICS 
103 022114 001343 BNE —sNEWPAS ;8R IF NO 
105 022116 t 
022116 104424 TRAP — C#ORPT 
106 022120 000741 BR NEWPAS 
107 022122 108: 
109 022122 SETU: GPHARD UNITN,RO GET UNIT N P-TABLE POINTER. 
022122 013700 002174 MOV —«UNITN RO 
022126 104442 TRAP  C9GPHRD 
110 022130 BNCOMPLETE NXTU :8R IF UNIT NOT AVAILABLE. 
022130 103342 Bcc —sNXTU 
111 022132 005037 003104 CLR - OUFLG CLEAR “DROPPED” FLAG. 
112 022136 005237 002212 INC —OEVCNT 
113 022142 012001 MOV —s- (RO) + RI :GET 1ST REGISTER ADDRESS. 
114 022144 010137 002200 MOV 1,CSR }ADORESS OF REGISTERS OF UNIT UNDER TEST 
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TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 16:41 SEQ 0096 
INITIALIZE SECTION 
115 
116 022150 012001 MOV (RO)+,R1 ;GET VECTOR ADORESS 
117 sMOV (RO) ,R2 sGET INTERRUPT PRIORITY 
118 sMOV R2,IPRI sSET INTERRUPT PRIORITY 
119 022152 010137 002202 MOV R1,IVEC ;SET INTERRUPT VECTOR POINTER. . 
120 022156 012721 016276 Mov @INTR,(R1)> 3..-VECTOR.. 
121 022162 013721 002204 MOV IPRI,(R1)+ +... AND PRIORITY. 
122 
123 022166 1s: 
124 : TST ave 31ST PASS 2? 
125 ; BEQ 5$ 3NO, SKIP THE PASS 1 STUFF. 
137 
; 
128 31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
129 ;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
1 3 
131 0221 013701 002174 MOV War™H, R1 
132 022172 006301 ASL 
133 022174 052761 100000 003170 BIS sarnis, ERTABL(R1) sSAY DEVICE RUNNING 
1 005037 005766 CLR EXTA sCLEAR ERROR EXTENSION FLAG. 
1 023727 0020i2 000001 CMP LSUNIT, @1 SARE WE TESTING MULTIPLE UNITS? 
136 022214 101416 BLOS 108 s8R IF NO. 
137 022216 RFLAGS RO sYES -- GET OPERATOR FLAGS. 
022216 104421 TRAP CORFLA 
022220 032700 001000 BIT T. ;SHOULD WE PRINT UNIT 0? 
139 022224 001412 BEQ ;BR IF NOT. 
022226 PRINTF @PUNIT,UNITN ;PRINT THE UNIT @ 
013746 002174 MOV UNITN, -( SP) 
022232 012746 022320 MOV @PUNIT, -( SP) 
022236 012746 000002 MOV @2,-(SP) 
022242 010600 MOV »RO 
022244 104417 TRAP COPNTF 
022246 062706 000006 ADO #6,SP 
141 022252 10$: 
022252 005037 003106 CLR Vv 
143 022256 013701 002200 MOV CSRADOR ,R1 sADORESS OF FIRST REGISTER 
144 022262 010102 MOV R1,R2 ISTART OF REGISTERS 
145 022264 062702 000002 ADO @TSSR,R2 sADORESS OF TSSR REGISTER 
146 022270 004737 016456 JSR PC, TEST BOTH CONTROLLER REGISTERS. 
147 022274 103005 BCC 2¢ BR IF ALL OK. 
148 022276 010137 003106 MOV Ri. NODE V IFLAG DEVICE AS ‘NON-EXISTENT 
149 022302 012737 177777 003104 MOV 1,0UFLG ;DROP THIS UNIT 
130 022310 2%: 
+ 
ia sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
tH 
154 022310 5$: SEIPRI @PRIOO sENABLE INTERRUPTS. 
022310 012700 000000 MOV @PRIOO, 
022314 104441 TRAP C#SPRI 
155 022316 ENDINIT 
022316 L10030: 
a 022316 104411 TRAP C#INIT 
137 022320 045 116 045 PUNIT: -ASCIZ /SNaNBAseees TESTING UNIT SD28A saeee/ 
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104452 


ADD AND DROP UNITS SECTIONS 


116 


177777 


140000 
000240 


022540 
000002 


000006 


045 


003104 


003170 
000240 


.-SBTTL ADD AND DROP UNITS SECTIONS 


gee 
s THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
: TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

; OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY 

lad 


BGNAU 
LSAU:: 
MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
ASL R1 s MAKE IT A WORD INDEX 
BIS 100000 ,ERTABL(R1) s SET THE “ACTIVE” BIT 
BIC #40000 ,ERTABL(R1) s CLEAR THE “DROPPED” BIT 
PRINTF #1%,RO0 
RO, -( SP) 
MOV @2,-C(SP) 
MOV SP, 
TRAP CSPNTF 
06, SP 
EXIT AU 
Jt uP 
-WORD 1L10031-2-. 
1$: -ASCIZ /SNSA UNIT SDSA ADDED/ 
-EVEN 
ENDAU s UNUSED. 
L10031: 
TRAP CsAu 


see 
s THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
. TO BE REMOVED FROM THE TEST LIST. 


; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
s “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
s COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 

s WHICH ARE STILL ACTIVE. 

; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


BGNDU 
L$DU:: 
MOV @-1,0UFLG 
MOV RO,R1 
ASL R1 
BIS #140000 ,,ERTABL(R1) 3: SAY DROPPED 
240,240,240 3s 222222722? 
PRINTF 41%,RO 
MOV »-(SP) 
MOV #1%,-CSP) 
MOV @2,-CSP 
MOV SP, 
TRAP CSPNTF 
ADO 96, 
EXIT 


-WORD J$JMP 
-WORD 110032-2-. 
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TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 16:41 SEQ 0098 
ADD AND DROP UNITS SECTIONS | 
| 
197 022540 045 116 045 18: -ASCIZ /SNSA UNIT SDA DROPPED/ 
98 ' 
199 022570 | 
022570 L10032: 
022570 104453 TRAP = C$DU 
200 see 
201 ; AUTO-OROP CODE SECTION. 
202 s-- 
203 022572 BGNAUTO 
022572 LSAUTO:: 
204 022572 013705 002200 MOV CSRADOR RS sPOINT TO DEVICE REGISTER 
| 205 022576 012703 000550 MOV 6360. ,R3 TIME FOR 2400' REEL TO REWIND 
206 022602 004737 016330 10$: JSR PC, WAITF ;WAIT FOR SSR TO SET 
207 022606 103420 BCS 208 ;LEAVE WHEN SSR IS SET 
208 022610 DELAY 250. ;WAIT FOR .25 SECONDS 
022610 012727 000372 MOV 6250. ,(PC)+ 
022614 000000 .WORD 0 
022616 013727 002116 MOV LSOLY,(PC)-+ 
022622 000000 .WORD 0 
022624 005367 177772 DEC -6(PC) 
022630 001375 BNE .-4 
022632 005367 177756 DEC -22(PC) 
001367 BNE .-20 
209 022640 005303 DEC R3 ;BUMP COUNTER DOWN 
210 022642 001357 BNE 10% ;KEEP GOING 


211 022644 004737 017262 JSR PC ,CKDROP sTRY AND DROP UNIT 
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TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 16:41 SEQ 0099 | 
CLEAN-UP AND REPORT CODING SECTIONS 
215 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
216 
217 
218 : "THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
219 ; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
226 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
221 i-- 
222 022652 
| 022652 LSCLEAN: : 
223 022652 013705 002200 MOV CSRADOR ,RS ;POINT TO DEVICE REGISTER 
224 022656 005737 003104 TST DUFLG s“OROPPED” FLAG IS SET 
225 022662 100405 BMI 1% 3...AND GROSS CONTROLLER FAULT. 
| 226 ;...DON’T TRY TO XCT CLEANUP CODE. 
| 228 022664 012765 000000 000002 MOV #0, TSSRC(RS) :00 SOFT INIT 
229 022672 004737 016330 JSR PC ,WAITF 
230 022676 1%: 
| 231 022676 2$: ENOCLN 
022676 L10034: 
agp 022676 104ai2 TRAP — C$CLEAN 
3¢¢ 
| 233 ; THE REPORT CODING SECTION CONTAINS T 
| 234 ; “PRINTS” CALLS THAT GENERATE STATTSTICAL REPORTS. 
gee 
236 022700 BGNRPT 
| 022700 LSRPT:: 
| 237 022700 PRINTS #DEVSUM 
| 022700 012746 023142 MOV @DEVSUM, -( SP) 
022704 012746 000001 MOV #1, -(SP) 
022710 0 MOV 
022712 104416 TRAP  C$PNTS 
022714 062706 000004 ADD ' 
238 022720 010246 MOV R2, -(SP) 
| 239 022722 010346 MOV R3,-(SP) 
240 022724 010446 MOV R4,-(SP) 
| 241 022726 012704 003170 MOV R4 ; GET START OF ERROR TABLE. 
242 022732 005003 CLR R3 ; CLEAR UNIT NUMBER 
243 022734 011402 18: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
244 022736 001467 BEQ 4s 3 ZERO IF UNIT NOT RUN 
245 022740 100066 BPL as 
246 022742 032702 040000 BIT @81T14,R2 ; WAS UNIT DROPPED? 
247 022746 001015 2s ; BR IF YES 
248 022750 042702 170000 BIC 6107777 ,R2 ; GET ERROR COUNT FIELD 
| 249 022754 PRINTS @DEVONL,R3,R2 ; PRINT 
022754 010246 MOV 2,-(SP) 
022756 010346 MOV R3,-(SP) 
| 022760 012746 023177 MOV @DEVONL , -( SP) 
| 022764 012746 MOV @3,-(SP) 
022770 01 v 
| 022772 104416 TRAP CS$PNTS 
022774 062706 000010 ADD #10,SP 
250 023000 000446 BR 4s 
| 251 023002 020227 160000 2%: CMP R2, #160000 ; WAS UNIT NON-EXISTENT? 
3006 001012 ; BR IF NO 
253 023010 PRINTS @DEVNXR,R3 
023010 010346 Vv -( 


R3,-(SP) 
023012 012746 023247 MOV @DEVNXR, -(SP) 
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012746 


000002 


000006 
160001 


MACRO M1113 14-JUN-84 


333% 


3$: 


4$: 





16:41 


@2,-(SP) 
Pp 


@DE VDRO ,R3,R2 
SP) 


(SP )+,R4 
(SP)+,R3 
(SP)+,R2 


; UNUSED. 


C$RPT 


/SNBADEVICE STATUS SUMMARY :SN/ 

ONLINE, ERRORS = / 

DROPPED, NON-EXISTENT REGISTERSN/ 
DROPPED, NOT READY AT STARTUPSN/ 
DROPPED, ERRORS = sDsN/ 


/$A UNIT SO38A 
/$A UNIT SO38A 
/$A UNIT SO38A 
/$A UNIT SD38A 


SEQ 0100 


Ks 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 14-JUN-84 16:41 
CLEAN-UP AND REPORT CODING SECTIONS 


1 
¢ .TITLE TEST 1 - HARDWARE TEST 1-8 TESTS 
10 
11 023462 BGNMOD TSV7B 
023462 TSV7B:: 


SEQ 0101 


ee ee ee —_~ ’ 


L& 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0102 
TEST 1: WRITE TAPE MARK RETRY 

26 .SBTTL TEST 1: WRITE TAPE MARK RETRY 

27 3¢ 

28 H 

29 ;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 

30 ;REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 

31 ’ 

32 ; 

33 ;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 

34 3 

35 ; 

36 : 

37 ' 

38 023462 BGNTST 
023462 Tl:: 

39 023462 012737 006354 002172 MOV @EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 

44 023470 012700 032047 MOV @TST29ID,RO sASCII MESSAGE TO IDENTIFY TEST 

4S 023474 004737 016570 JSR PC, TSTSETUP 300 INITIAL TEST SET 

46 023500 012737 000005 002210 MOY @5 ,LOOPCNT sPERFORM S ITERATIONS 

47 023506 005037 026424 CLR T29CNT sCLEAR TAPE RECORD COUNTER 

48 023512 T29L00P : 

49 3¢ 

50 H 

ss sTEST 1, SUBTEST 1 

3 

53 ;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 

54 ;TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 

+ ;NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 

: 

57 ; 

58 : 

59 * 

60 023512 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
023512 T1.1: 
023512 104402 TRAP Cs6SUB8 

61 023514 004737 032076 JSR PC, T29REST sSET COMMAND PACKET 

62 023520 004737 032170 JSR PC, T29RT2]) sSET UP OTHER COMMAND PACKET 

63 023524 004737 032232 JSR PC, T29RTS sSET UP Ay COMMAND PACKET 

64 023530 012737 023420 026430 MOV #10000. , T290LY ;SET UP DELAY ROUTINE 

65 923536 004737 016054 10%: JSR PC, SOF INIT 300 gt r- CONTROLLER 

66 023542 103426 BCS 20% 38R IF INIT 

67 023544 DELAY 250 sDELAY ABOUT Ws OSECONDS 
023544 012727 000250 MOV #250, (PC)+ 
023550 000000 -WORD O 
023552 013727 002116 MOV LSOLY,(PC)+ 
023556 000000 -WORD O 
023560 005367 177772 DEC -6(PC) 
023564 001375 BNE a* 
023566 005367 177756 DEC -22(PC) 
023572 001367 .-20 

68 023574 005337 0264350 DEC T290LY ;BUMP DELAY ROUTINE DOWN 

69 023600 001356 BNE 10% ;8R, IF MORE DELAY TIME LEFT 

70 023602 005237 002214 INC FATFLG sERROR COUNT 

74 023606 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

75 023610 ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
023610 104455 CSEROF 
023612 000145 . WORD 101 


023614 003646 -WORD SFIERR 





TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
TAPE MARK RETRY 


TEST 1: WRITE 


120 024004 
121 024012 
122 024020 
123 024024 
124 024030 


012114 
013737 


005052 
012114 


104406 
016501 


002174 


026250 
010742 
002214 


000100 


003116 
141011 
026370 


000000 
016330 


026270 


026372 
026370 


203: 


40$: 


UNITN, T290SW 
@T29PACKET ,R4 
PC ,WRTCHR 

25% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


TSSRCRS),R1 
R1,R2 


1, 
@OFL ,R2 
R1,R2 


26% 
ERRNO, T290FL , EXPREC 


PC ,CKDROP 

PC ,REWIND 
TSSRCRS),R1 

30% 

RO,R4 

FATFLG 

ERRNO, T29RWN, PKTSSR 


T29BFR+6,R1 

R1,R2 

#BIT1,R2 

R1,R2 

oo 

FATF 

ERRNO. T29B0T , EXPREC 


FREE , T29RB 
0141011, T29PK3 
OT29PK3,R4 


R4, TSDBCRS) 
PC ,WAITF 


. WORD 
sSET UP UNIT NUMBER 


sSUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND a OK 


sERROR 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


LOOP IF SELECTED 


;GET THE TSSR 
sSET UP EXPECTED 


;TRY AND DROP DRIVE 

;CALL TAPE REWIND COMMAND 
;GET TSSR 

;SET UP EXPECTED TSSR 
;BR, F NO PROBLEM 

sPACKET ADDRESS SET UP 


sERROR COUNT 
;REWIND NOT ACCEPTED 


;LOOP IF SELECTED 
sPICK UP XSTO 


sSET UP EXPECTED 
iSET BOT BIT J prac 


3 COUNT 
;TAPE NOT AT BOT AFTER a Hy 


;LOOP IF SELECTED 
TRAP 
sADORESS OF READ BUFFER 


SEQ 0103 


SF IMSG 


CsCLP1 


CSCLP1 


sWRITE TAPE MARK RETRY,CVC=1.ACK COMMAND 


sSET UP R4 WITH PACKET ADDRESS 


sISSUE COMMAND 
s;WAIT FOR SSR TO SET 


TEST 
TEST 


1 - HARDWARE TEST 1-6 TEST MACRO M1115 
1: WRITE TAPE MARK RETRY 


024142 


176 024174 
024174 


000002 
100206 


002214 


002214 


002214 
017262 


032076 
032170 
032232 
016054 


002214 


000017 


75$: 


170$: 


999%: 


3° 


N& 
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TSSRCRS),R1 
@SSR!SC!BIT1!81T2,R2 
R1,R2 

75$ 

FATFLG 

ERRNO, T29WDE , PKTSSR 


T29BFR+6,R1 
R1,R 


1, 
#6IT10,R2 
R1,R2 
170% 
FATFLG 
ERRNO, T29NEF ,EXPREC 


R3 
26% 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
waar 1, SUBTEST 2 
;VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED oo THE TAPE 


IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESUL 


SEQ 0104 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE TREY EQUAL 
;BR, OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 106 
-WORD T 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
3GET xXSTO STATUS WORD 
;SET UP EXPECTED 
;SET THE NEF BIT 
;ARE THEY EQUAL 
;BR, IF EQUAL (GOOD) 
sERROR COUNT 
3 NEF SHOULD BE SET 
TRAP CSERHRD 
-WORD 107 
-WORD T29NEF 
-WORD EXPREC 
sRESET THE SWITCH 
;6R, IF FIRST TIME THROUGH HERE 
L10037: 
TRAP CseEsus 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 
TS IN 


3; TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 


SET 


PC, T29REST 

PC, T29RT2 

PC, T29RTS 

PC, SOF INIT 

20% 

FATFLG 

RO,R1 

ERRNO, SF IERR, SFIMSG 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T1l.2: 


TRAP 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
300 INITIALIZE ON CONTROLLER 
;8R IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS aa A 


C$BSUB 


CSEROF 


TEST 1 . TEST 1-8 + Sad MACRO M1113 14-JUN-64 16:41 SEQ 0105 
TEST 1: WRITE TAPE MARK RETR 
024176 000154 -WORD 106 
024200 003646 -WORD SFIERR 
024202 012114 -WORD SF IMSG 
177 024204 013737 002174 026270 20%: MOV UNITN, T290SW sSET UP UNIT NUMBER 
178 
179 024212 012704 026250 MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORE 
180 024216 004737 010742 JSR PC ,WRTCHR SISSUE WRITE CHARACTERISTICS 
181 024222 103407 BCS 25% sBR, IF COMMAND ISSUED OK 
162 024224 005237 002214 INC FATFLG sERROR a 
186 024230 010001 MOV RO,R1 ait CONTENTS OF T 
187 024232 ERRHRD ERRNO,WRIMSG, SF IMSG WRITE CHARACTERTSTISC ‘--y 
024232 104456 CSERHRD 
024234 000155 TYORO 109 
024236 -WORD  WRTMSG 
024240 012114 -WORD SF IMSG 
188 024242 25%: CKLOOP sLOOP IF SELECTED 
024242 104406 TRAP CsCLP1 
1869 024244 0013737 011074 26%: JSR PC REWIND sCALL TAPE REWIND COMMAND 
190 024250 016501 000002 MOV TSSRCRS),R1 1GET TS 
191 024254 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 
192 024260 103407 BCS 30% s8R, IF NO PROBLEM 
193 024262 010004 MOV RO,R4 sPACKET “Cenaa SET WP 
194 024264 005237 002214 INC FATFLG OUNT 
196 024270 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
024270 104456 TRAP CSERHRD 
024272 000156 -WORD 110 
024274 030235 -WORD Tf 
024276 012126 -WORD PKTSSR 
199 024300 30$: CKLOOP sLOOP IF SELECTED 
024300 104406 TRAP CsCLP1 
200 024302 013701 026300 MOV a Ri sPICK UP XxSTO 
201 024306 010102 MOV 1,R2 sSET UP EXPECTED 
202 024310 052702 000002 BIS sein. R2 sSET BOT BIT IN EXPECTED 
203 024314 020102 CMP R1,Re sD0ES EXP = REC'D 
204 024316 001406 G 40% s8R, IF EQUAL (OK) 
024320 005237 002214 INC FATFLG sERROR COUNT 
209 024324 ERRHRD ERRNO, T2980T ,EXPREC s TAPE NOT AT BOT AFTER REWIND 
024324 104456 TRAP CSERHROD 
024326 000157 WORD i111 
024330 027726 T29807 
024332 015554 EXPREC 
210 024334 012737 000001 025372 40%: MOV #1, T29RB RECORDS TO SPACE OVER 
211 024342 012737 000400 026376 MOV #256. , T29SZ sSET UWP RECORD SIZE 
212 024350 012737 140005 026370 MOV #140005 , T29PKS sWRITE FORWARD.CVC=1,ACK COMMAND 
213 024356 012704 026370 MOV OT29PKS ,R4 sSET UP R4 WITH PACKET ADORESS 
214 024362 010465 MOV R4, TSOBCRS) s ISSUE COMMAND 
215 024366 7 016330 JSR WAITF iWAIT FOR SSR TO SET 
216 024372 016501 MOV TSSRCRS) Ri sGET TSSR CONTENTS 
217 024376 012702 000200 MOV : sSET UP EXPECTED 
024402 020102 CMP R1,R2 sARE THEY E 
219 024404 001420 BEQ 75% s6R, IF OK 
024406 013703 026300 MOV T29BFR+6,RS sPICK UP XTSO 
221 024412 032703 000004 BIT 04 ,R3 11S UNIT WRITE -LOCKED? 
16 001405 BEQ 41% sNO,PROCEED WITH NORMAL E 
223 024420 ERROF ERRNO, T29WLK,SFIMSG TAPE IS WRITE LOCKED 
20 104455 TRAP CSEROF 


024422 000157 -WORD 111 


TEST 1 - HARDWARE TEST fp MACRO M1113 14-JUN-84 


TEST 
024424 

024426 

224 024430 
024430 

225 024432 
229 oeaae 


027574 
012114 


1: WRITE TAPE MARK 


002214 


003116 
141011 
026370 
000000 
016330 
000002 
100204 


002214 


026372 
026370 


026372 
026370 


41%: 


75%: 


1758: 


DOCLN 


AB383S9S38 oa 


16:4] 


FATFLG 
ERRNO, T2Z9WRT ,PKTSSR 


#1, T29R6 
#140410, T29PKS 


OT29PK3 ,R4 
R4, TSDBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 


R1,R2 

175% 

FATFLG 

ERRNO, T2QWDE , PKTSSR 


FREE , T29RB 

141011, T29PK3 

Og ae R4 
resale 


TSSACRS).R 
a arte, R2 


1808 
FATFLG 
ERRNO, T2SWDE ,PKTSSR 


T29BFR+14,R1 
R1,R2 
eeiT0, »R2 


1908 
FATFLG 
ERRNO, T29RIB, EXPREC 


SEQ 0106 
. WORD T29OWLK 
-WORD SF IMSG 
sOROP IT 
TRAP CSO0CLN 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD i112 
. WORD T2KRT 
- WORD PKTSSR 
;LO00P IF SELECTED 
TRAP CSCLPl 
sNUMBER OF RECORDS TO SPACE OVER 
sSET UP COMMAND IN APCKET 
sSET UP R4 WITH PACKET ADORESS 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
16R, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 113 
. WORD 
.WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CSCLP1 
sADDRESS OF BUFFER 
sWRITE TAPE MARK RETRY,ACK, a COMD. 
sSET UP R& WITH PACKET ADORESS 
COMMAND 


s ISSUE 

SWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 


sARE Y EQUAL 

s8R, IF OK P 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 114 
.WORD T 
.WORD PKTSSR 

3L00P IF SELECTED 
TRAP CsCLPl 

3GET xXST3 STATUS WORD 

sSET UP EXPECTED 

;SET THE RIB BIT 

sARE THEY EQUAL 

s8R, IF EQUAL (GOOD) 

sERROR COUNT 

ys NEF O BE SET 
TRAP CSERHRO 
.WORD 115 
.WORD T29RIB 
.WORD EXPREC 





TEST 1 
TEST 


271 024646 
272 024646 
024646 


MARK RETRY 


002214 
017262 


002174 
026250 
010742 
002214 


1908: 


000017 


999%: 


3° 


ENDSUB 


CMP 
BLO 
JSR 


nn ee Ce ee 


DI 


- HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
1: WRITE TAPE R 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
sTEST 1, SUBTEST 35 


iVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINA/SES 
PROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A 


SEQ 0107 


4>>>>>>>>>>>> END SUBTEST >»>>>>>>> >>> 
L10040; 


TRAP 
sI1S ERROR COUNT AT 25 
s8R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


sCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


026430 


10%: 


026270 208: 


23%: 


CKLOOP 


T290LY 

10% 

FATFLG 

RO,R1 

ERRNO , SFIERR , SF IMSG 


UNITN, T290SW 
eT29PACKET, R4 
PC ,WRTCHR 
23% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


READ REVERSE 


CSESUB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T 


sSET UP DELAY 
300 INITIALIZE “2 CONTROLLER 
3s6R IF INIT WAS OK 

sDELAY ABOUT .25 meceonns 


. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 


sBUMP DELAY ROUTINE DOWN 
s8R, IF MORE DELAY a LEFT 


sERROR COUN 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS oS 


. WORD 
- WORD 
. WORD 
sSET UP ORIVE NUMBER 
INE 


C$6SUB 


0250 ,(PC)+ 

yoLy.cPC)- 

“6¢PC) 

"220eC) 
--20 


4 NEEDS PACKET ADORESS 
sISSUE WRITE CHARACTERISTICS 
pd ISSUED OK 


s6R, IF 


s SAVE CONTENT S OF TSSR 

sWRITE CHARACTERISTISC —- 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


CsCLP1 





ated 


- HARDWARE TEST 1 


TEST 
TEST “* WRITE TAPE MARK RETR 


-6 i MACRO M1113 14-JUN-84 


011074 
000002 
002214 


002214 


026370 


026370 


708: 
150%: 


155%: 


165%: 


838353883 2 


Ba 


CKLOOP 


EQ 
16:41 
PC, — 
TSSRCRS), Ri 
RO,R 


FATFLG 
ERRNO, T29RWN, PKTSSR 


— 


FLG 
ERRNO, T29B0T , EXPREC 


#140011, T29PK3 
ag anf R4 
R4, TSDBCRS) 


PC, WAITF 
TSSRCRS),R1 
R2 


ERRNO, T29WOC ,PKTSSR 


#1. ,R3 
0141011, T29PK3 
@T29PKS ,R4 

R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS) RL 
@SSR ,R2 

R1,R2 

165% 

FATFLG 

ERRNO, T29WDC , PKTSSR 


SEQ 0108 
sCALL TAPE ogy COMMAND 
sBR, IF NO PROBLEM 
GET TSSR 
SAVE PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP C SERHRO 
-WORD 118 
-WORD T29RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sO00ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


-WORD 119 
-WORD T2980T 
-WORD EXPREC 


sLOOP IF SELECTED 
CSCLP1 


TRAP 
sWRITE TAPE MARK, ACK,CVC*1 COMMAND 
sSET UP _R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
SWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
EQUAL 


sARE THEY 
36R, IF OK 
sERROR COUNT 
3s TSSR INCORRECT AFTER ~~ TAPE MARK 
TRAP CSERHRD 
120 
.WORD T29WDC 
. WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CscLP1 


sNUMBER OF RECORDS TO WRITE TM 
sWRITE TAPE MARK RETRY,ACK,CVC*1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sISSUE COMMAND 
iWAIT FOR SSR TO SET 
sPICK UP TSSR 

3SET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

36R, IF Un Cat Good 


E 
sTSSR NOT CORRECT AFTER ui TAPE M. 


CSERHRD 
° "WORD 121 
-WORD T 
WORD PKTSSR 


sLOOP IF SELECTED 





| 
| 
| 
| 


TEST 1 
TEST 1: WRITE 


140401 
003116 
026370 


000000 
016330 
000002 


100204 


002214 


002214 


002214 
017262 


026370 
026372 


000017 


eg TEST 1-8 is ag MACRO M1113 
APE MARK RETR 


2228: 


999%: 


3° 


sRECOROS 
3 COMMAND 


F9 


14-JUN-84 16:41 


SEQ 0109 


TRAP CSCLP1 


MOV #140401, T29PKS sREAD REVERSE .ACK, COMMAND 
MOV FREE , T29R6 sNUMBER OF RECORDS TO SPACE BACK 
MOV @T29PK3 ,R4 SSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOBC RS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR!SC!BIT2, Re sSET UP EXPECT 
CMP R1,R2 sARE THEY EQUAL 
BEQ 222% sBR, IF OK 
INC FATFLG Cc 
ERRHRD ERRNO, T29R0G,PKTSSR sTSSR INCORRECT AFTER SPACE CMD 
TRAP CSERHRD 
-WORD 122 
. WORD T29ROG 
-WORD PKTSSR 
CKLOOP 3LOOP IF SELECTED 
TRAP CSCLPi 
MOV T29BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #61IT15,R2 THK SHOULD BE SET 
CMP R1,R2 3IS TMK SET 
BEQ 226% 3BR, IF TMK WAS SET —— 
INC FATFLG sERROR C 
ERRHRD ERRNO, T29RRN,EXPREC 3TMK NOT SET AFTER READ REV 
TRAP CSERHROD 
-WORD 123 
-WORD T29RRN 
-WORD EXPREC 
CKL.OOP ;LOOP IF SELECTED 
TRAP CSCLPi 
ENDSUB 3<<<¢0¢¢¢¢<¢¢ END SUBTEST >>>>>>>>>>> 
L10041: 
TRAP CsESuB 
CMP FATFLG, #15. sIS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
‘ 
—— 1, SUBTEST 4 
| VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
71.4: 
TRAP Cs$BSUB 
JSR PC, T29REST 3SET COMMAND PACKET 
JSR »T29RT!]) sSET UP OTHER COMMAND PACKET 
JSR FH tid: sSET UP OTHER COMMAND PACKET 
MOV #10000. , T290LY sSET UP DELAY ROUTINE 
JSR PC, SOF INIT 100 INITIALIZE ON CONTROLLER 


10$: 





nn i ae ee ——— 


G9 


025640 
452 025642 40%: CKLOOP sLOOP IF SELECTED 


TEST - WARDUARE TEST 1-8 Test MACRO M1113 14-JUN-84 16:41 SEQ 0110 
TEST = WRITE T MARK RETR 
411 025440 103426 BcS 208 s8R IF INIT WAS OK 
412 025442 DELAY 250 sDELAY ABOUT .25 SECONDS 
025442 012727 000250 MOV 250,(PC)- 
025446 000000 .WORD 0 
025450 013727 002116 MOV LSOLY,(PC)- 
025454 000000 .WORD 0 
025456 005367 177772 DEC “6CPC) 
025462 001375 Be 
025464 005367 177756 DEC "32(PC) 
025470 001367 BNE .-20 
413 025472 005337 026430 DEC T290LY sBUMP DELAY ROUTINE DOWN 
414 025476 001356 BNE 10$ 38R, IF MORE DELAY TIME LEFT 
415 025500 005237 002214 INC FATFLG sERROR COUNT 
419 025504 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
420 025506 ERRDOF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
104455 TRAP CSEROF 
025510 000174 WORD 124 
025512 003646 WORD SFIERR 
025514 012114 .WORD  SFIMSG 
421 025516 013737 002174 026270 20%: MOV UNITN, T290SW sSET UP DRIVE NUMBER 
| 422 025524 012704 026250 MOV @TZOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
423 025530 004737 010742 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
424 025534 103407 ecs 23% 38R, IF COMMAND ISSUED OK 
425 025536 005237 002214 INC FATFLG sERROR 
429 025542 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
| 430 025544 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
025544 104456 TRAP CSERHRO 
025546 000175 WORD 125 
025550 005052 .WORD WRTMSG 
025552 012114 .WORD SFIMSG 
431 025554 238: CKLOOP ;LOOP IF SELECTED 
025554 104406 TRAP CSCLP1 
432 025556 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
| 433 025562 103411 BCS 30% 3BR, IF NO PROBLEM 
434 025564 016501 000002 MOV TSSRC(RS),R1 :GET T 
| 435 025570 010004 MOV RO,R4 sSAVE PACKET ADORESS 
436 025572 005237 002214 INC FATFLG sERROR COUNT 
440 025576 ERRHRD ERRNO, TOORWN,PKTSSR sREWIND NOT ACCEPTED 
025576 104456 CSERHRD 
000176 WORD 126 
025602 030235 WORD T 
025604 012126 PKTSSR 
441 025606 308: CKLOOP sLOOP IF SELECTED 
025606 104406 TRAP CsCLPi 
442 025610 013701 026300 MOV T298FR+6,R1 sPICK UP XSTO 
443 025614 010102 MOV R1,R2 3SET UP EXPECTED 
444 025616 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
445 025622 020102 CMP R1,R2 sD0ES EXP = REC'D 
446 025624 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
447 025626 005237 002214 INC FATFLG sERROR COUNT 
451 025632 ERRHRD ERRNO, T2980T ,EXPREC ;TAPE NOT AT 30T AFTER REWIND 
| 025632 104456 TRAP CSERHRD 
025634 000177 , 127 
025636 027726 .WORD T29B0T 
015554 "WORD EXPREC 
| 
| 





1 i os TEST 1-8 + ad MACRO M1113 
APE MARK RETR 


ST 
TEST 1: WRITE T 


503 026114 


012737 


140011 
026370 


000000 
016330 
000002 
000200 


002214 


100410 
000005 
026370 
000000 


026370 


026372 
026370 


026370 
026372 


026370 
026372 


165$: 


2228: 


H9 


14-JUN-84 16:41 


CKLOOP 


38 


Varies 


BEEP EEEEL ti E 


i 


#140011, T29PK3 
29PK3,.R4 


FATFLG 
ERRNO, T29WOC ,PKTSSR 


#10. ,R3 

@1, T29R8 
141011, T29PK3 
OT29PK3 ,R4 
R4, TSOBCRS) 

»WAITF 

TSSR(RS),R1 
@SSR ,R2 
R1,R2 

165% 
FATFLG 
ERRNO, T2SWOC . PKTSSR 


R3 
155% 
#140410, T29PK3 


TSSRCRS).R 

@SSR!SC ari2, R2 
R1,R2 

222% 

FATFLG 

ERRNO, T29WDE , PKTSSR 


#100410, T29PKS 
#5, T29RB 


@T29PK3,R4 
R4, TSDBCRS) 


SEQ 0111 
sWRITE TAPE MARK,ACK,CVC*1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
‘WAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, OK 
sERROR COUNT 
:TSSR INCORRECT AFTER a TAPE MARK 
CSERHRD 
. NORD 128 
. WORD T29WDC 
. WORD PKTSSR 
;LOOP IF SELECTED 
CSCLP1 


TRAP 
sNUMBER OF RECORDS TO WRITE TH 
SSET UP PACKET 
sWRITE TAPE MARK RETRY, aca. COMMAND 
sSET UP _R4 WITH PACKET 
s ISSUE COMMAND 
TWAT) FOR SSR TO SET 
sPICK UP TSSR 
sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 
38R, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER ad TAPE MM. 


RAP CSERHRO 
-WORD 129 
-WORD T29WOC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sBUMP COUNTER DOWN 

3;8R, IF LESS THAN 10 TAPE MARKS 
sSPACE REVERSE ,ACK,CVC=1, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
1SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

TWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 
EQUAL 


sARE THEY 
s6R, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
-WORD 130 
.WORD T29WDE 
.WORD PKTSSR 

;LOO0P IF SELECTED 
TRAP C$CL.P1 


sSPACE REVERSE ,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
ISET UP R4 WITH PACKET ADDRESS 
11S COMMAND 
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TEST . cooie on TEST 1-6 a MACRO M1113 14-JUN-84 16:41 
_ TEST WRITE TAPE MARK RETR 


04403 
S28 026216 023727 002214 
S29 026224 
530 026226 004737 017262 


534 
S35 026232 004737 016536 
<4 026240 000137 023512 


000017 


JSR PC ,WAITF 
MOV TSSRCRS),R 
MOV @SSR: screri2, R2 


CMP R1,R2 

BEQ 260% 

INC FATFLG 

ERRHRD ERRNO, T29RDG,PKTSSR 


260%: CKLOOP 

MOV 7. R1 

BIS @BITO,R2 

CMP R1,R2 

BEQ 270% 

INC FATFLG 

ERRHRD ERRNO, T29RIB,EXPREC 


270%: CKLOOP 


ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
999%: 


JSR PC, TSTLOOP 
BCC 163% 


JMP T29 
163%: EXIT TST 


3° 

sLOCAL STORAGE FOR THIS TEST 
g- 

T29PACKET: 

14004 
ees 


10. 


T29DATA: 


WORD 
WORD 
. WORD 
. WORD 
-WORD T29BFR 
- WORD 
. WORD 
. WORD 


SEQ 0112 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
sERROR COUNT 
s;TSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 
-WORD 131 
«WORD T29RDG 
-WORD PKTSSR 


sLOOP IF SELECTED 

sPICK UP XSTS 

sSET UP EXPECTED 

sRIB SHOULD BE SET 

11S RIB SET 

s8R, IF RIB WAS SET (GOOD) 


sERROR C 
3;TMK NOT SET AFTER READ REV 
TRAP 


CSERHRD 
-WORD 132 
-WORD T29RIB 
EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


;LOOP IF SELECTED 
RAP CSCLP1 
3<<<<¢¢¢¢¢¢¢ END SUBTEST >>>>>>>>>>> 


L10042: 
TRAP Csesus 
;IS ERROR COUNT AT 25 
3;BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


300 WE NEED TO ITERATE TEST 
3BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
«WORD 1L10036-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTIC 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


S COMMAND, WITH CvC=1, ACK 





TEST 
TEST ~ WRITE TAPE MARK RETR 


- HARDWARE TEST 1 


026272 


027033 


027147 
027231 


000000 


003116 


16 
177777 


000000 
000000 


T290SW: 
T29BFR: 


; 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.*<,¢10>€177770 


6 
T29PK2: 


—des of oe 


298F 2: 

T298S0: 

T296S1: 
T29Se2: 


T2983: 
; 
; 


. WORD 
-BLKW 


-BYTE 
-BYTE 


if: 


JI 


1-8 af MACRO M1113 14-JUN-84 16:41 SEQ 0113 


0 sSELECT DRIVE 0 
2s. sMESSAGE BUFFER 


100006 ;sWRITE SUB SYS MEM COMMAND, AND ACK 

es sADDRESS OF SELECT BLOCK DATA 

6. ;SIZE OF DATA PACKET 

140005 ;sWRITE TAPE MARK RETRY COMMAND, CVvC=1 AND ACK 
“pe sADORESS OF WRITE BUFFER 

0 s;SIZE OF BUFFER (EXTENT) 

10 ;BSELO AREA 

200 ;BSEL1 AREA 

0 ;SEL 2 AREA 

0 sDATA AREA 


EVEN 
3; TAPE MOTION PACKET COMMAND VALUES 


3 
T29CNT: 


T29RSZ: 
T290LY: 


140001 sREAD DATA 

140401 sREAD DATA REVERSE 

141001 sREAD PREVIOUS OPP=0 

161001 sREAD PREVIOUS OPP=1 

141401 sWRITE TAPE MARK RETRY NEXT OPP=0 
161401 sWRITE TAPE MARK RETRY NEXT OPP=1 
177777 sEND OF DATA 


; TAPE RECORD COUNTER STORAGE AREA 


sRECORD STORAGE SIZE AREA 
sDELAY COUNTER STORAGE AREA 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


‘Drive is OFFLINE’ 

‘Tape Position Incerrect After WRITE TAPE MARK RETRY Previous (OPP=1)' 
‘WRITE TAPE MARK RETRY, At eer Failed To Set NEF (XSTO)' 

‘TSSR Incorrect After READ DATA Command’ 

‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed 


‘WRITE TAPE MARK RETRY Previous (Read Forwerd, Space Reverse) Command Failed 


‘POSITION (Space Command) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 





Kg 
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0114 
TEST 1: WRITE TAPE RARK RETRY 


617 027301 124 123 123 T29WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 
618 027356 111 154 154 T2M0Q@: .ASCIZ ‘Ill 1 Mode Bite, Feiled To Set ILC Bit In XSTO' 
619 027437 127 122 111 Te9SSR: .ASCIZ ‘WRITE TAPE MARK RETRY COMMAND Not Accepted’ 
620 027512 124 123 123 T29WDE: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE DATA Command’ 
621 027574 052 052 OS2 T29MK: .ASCIZ ‘seeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSsseess’ 
622 027661 124 123 123 T29WRT: .ASCIZ ‘TSSR Not Correct After WRITE Commend’ 
623 027726 124 141 160 T29B80T: .ASCIZ ‘Tepe Not At BOT After REWIND Commend’ 
624 027773 104 14) 164 T290TA: .ASCIZ ‘Date Written To T Not Equel To Deta Read From Tape’ 
625 030061 127 122 111 T29E0T: .ASCIZ ‘WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
626 030157 124 123 123 T29TM: .ASCIZ ‘TSSR Not aooreet After SPACE ye Into BOT’ 
627 030235 122 145 167 T29RWN: .ASCIZ ‘Rewind (POSITION) Commend Not Accepted’ 
| 628 030304 122 101 115 T29RNC: .ASCIZ ‘RAM Error, Correct Dete Pettern Not In Rem 
629 030357 124 123 123 T29AM3: .ASCIZ ‘TSSR Init. Feiled After WRITE TAPE MARK RETRY COMMAND ' 
3044 -ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
-ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Commend, SWB Bit Set’ 
632 030627 124 123 123 T29WOC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command’ 
26 : .ASCIZ ‘CVC Set, Didn''t Reset VCK In Buffer’ 
| 634 030774 124 123 102 T298A: .ASCIZ ‘TSBA Not Correct After WRITE TAPE RETRY DATA Command’ 
635 031066 127 122 111 T29WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
636 031155 122 145 141 T29L0N: .ASCIZ ‘Reading Long Record Feiled To Set RiLL Bit In XSTO’ 
. ‘Reading we, Lane Mysore Feiled To Set ALS Bit In XSTO' 
638 031321 122 145 163 T29PBP: .ASCIZ ete po Byte Count Incorrect After Short Record Read’ 
e~< ee Lene Record Feiled To Give Tepe Stetus Alert’ 
640 031475 104 141 164 T29NEQ: .ASCIZ ‘Date ITE TAPE MARK RETRY From Tape Not Correct, After SwWB-1' 
641 031573 124 123 123 T29RDG: .ASCIZ ‘TSSR Incorrect After READ REVERSE Into Tepe Merk’ 
642 031654 127 122 111 T29RIB: .ASCIZ ‘WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (xST3)' 
643 031754 124 115 113 TOORRN: .ASCIZ ‘TMK (XSTO) Feiled To Set After READ REVERSE Into Tape Mark’ 
644 032047 127 162 151 TST29I0: wae -ASCIZ ‘Write Tape Mark Retry’ 


645 .E 
3 
648 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
aoe sWRITE SUBSYSTEM MEMORY COMMAND 
3 
651 s- 
652 
653 032076 T29REST: 
654 032076 SAVREG sSAVE THE REGISTERS 
655 032102 012701 026250 MOV @T29PACKET ,R1 sSTART OF THE ng Ss 
656 032106 012721 140004 MOV #140004 ,(R1)-+ sWRITE SUBSYSTEM WITH ACK, CvC=1 
657 032112 012721 026260 MOV @T29DATA,C(R1)+ sADORESS OF CHARATSTICS DATA BLOCK 
656 032116 005021 CLR CR1)+ 3EX ADORESS 
659 032120 012721 000012 MOV #10. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
660 032124 012721 026272 MOV @T29BFR,CR1)+ sADORESS OF MESSAGE BUFFER 
661 032130 005021 CLR (R1)-+ 
662 032132 012721 000024 MOV #20. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
663 032136 005021 CLR CR1)+ 
664 032140 012711 000000 MOV #0,(R1) sSELECT DRIVE ZERO (0) 
665 032144 012702 000030 MOV $24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
666 032150 012762 177777 026272 64%: MOV 4177777, T29BFRCR2° FALL ONES TO MESSAGE BUFFER 
667 032156 005742 TST -(R2) sNEXT LOCATION 
668 032160 020227 000000 CMP R2,00 sCHECK FOR END OF LOOP 
669 032164 001371 BNE 64% sKEEP GOING UNTIL DONE 
°~ 032166 000207 RTS PC ;RETURN 
672 032170 T2ORT2: 


673 032170 SAVREG sSAVE THE REGISTERS 
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TEST Lh: WRITE TAPE MARK RETRY 

674 032174 012701 026360 MOV @T29PK2 ,R1 sSTART OF THE PACKET 
675 032200 012721 140006 Mov 140006 ,(R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK,CVC-1, 
676 032204 012721 026400 MOV OT29BF2,(R1)+ sADORESS OF DATA ~— 
677 032210 005021 CLR CR1)« JEXTENDED ADORESS 
678 032212 012721 000006 MOV 06. ,CR1)« sSI7E OF DATA BLOCK IN BYTES 
679 032216 005021 CLR CR1)>+ 
680 032220 012701 026400 MOV @T29BF2,R1 sPOINT TO DATA SEL AREA 
681 032224 005021 CLR CR1)+ 
682 032226 005011 CLR CR1) 
683 032230 000207 RTS PC sRETURN 
684 032232 T29RT3: 
685 032232 SAVREG sSAVE THE REGISTERS 
686 032236 012701 026370 @T29PK3,R1 sSTART OF THE PACKET 
687 032242 012721 000000 MOV @0,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
688 032246 012721 000000 MOV @0,(R1)+ sADORESS OF DATA BLOCK 
6869 032252 005021 CLR CR1)+ sEXTENDED ADDRESS 
690 032254 012711 9000000 MOV #0,(R1) sSIZE OF DATA BLOCK IN BYTES 
691 032260 000207 RTS PC sRETURN 
692 032262 ENDTST 

032262 L10036: 

032262 104401 TRAP CSsETST 
693 -SBTTL TEST 2: SKIP TAPE MARKS 
695 . 
696 i THIS TEST VERIFIES PROPER get, OF THE SKIP TAPE MARKS 
697 sFORWARD AND SKIP TAPE MARKS RE . PROPER OPERATION 
698 CONTROL OF ALL COMB TIONS IP TAPE MARKS 
€99 sSTOP CESS) AND ENABLE TAPE MARKS STOP OF BOT (ENB) BITS ro 
700 3BY THE ITE ee itoh i ICS COMMAND. THE TEST CONSISTS OF T 
701 sFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS co’ SAITTEN 
702 sWITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
703 3AND/OR DOUBLE TAPE MARKS. 
704 H 
705 H 
ne ;THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 

3 

708 Hy 
709 H 
710 3° 
711 032264 BGNTST 

032264 T2:: 
712 032264 012737 006354 002172 MOV GEPRT1, EPRTSW sPRIMARY ERROR MESSAGE 
717 032272 012700 041161 MOV @TST3OID.RO sASCII MESSAGE TO IDENTIFY TEST 
718 032276 004737 016570 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
24 032302 012737 000005 002210 MOV #5,,LOOPCNT } PERFORM 5 ITERATIONS 

3¢ 

721 3 
722 sTEST 2, SUBTEST 1 
iba 
725 VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 
726 TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 
T27 ts FIRST REWOUND, THEN WRITTEN WITH SEVERAL “FILES”; 
728 sEACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 
729 sFOLLOWED BY A TAPE MARK. THE FINAL FIL S 
730 Y A DOUBLE DATA RECORD 


s TERMINATED B TAPE 
731 ; CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 
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TEST 2: SKIP TAPE 


732 ;THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 

733 ;VERIFIED BY wo THE DATA. THE TAPE IS AGAIN 

734 ;REWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 

735 ;COMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 

736 | TERMINATION, TMK=1 STATUS, TAPE POSITION VIA READ 

737 ;COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 

738 :COMMAND, A WRITE CHARACTERISTICS oar IS ISSUED TO 

739 ;SET UP THE ESS AND ENB CONTROL 8ITS 

740 ;COMBINATIONS OF ESS AND ENB ARE USED COO 6.01, 10, 

741 311); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 

742 ;THIS SUBTEST. 

743 ; 

744 3 

745 he 

746 

747 032310 T30LOOP : 

748 032310 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
032310 T2.1: 
03231 1 TRAP C$BSU8 

749 032312 004737 041202 JSR PC, TSOREST ;SET COMMAND PACKET 

750 032316 005037 CLR T30F CN ;CLEAR FILE COUNTER 

751 032322 004737 041274 JSR PC, T3ORT2 sSET UP OTHER COMMAND PACKET 
032 004737 041336 JSR PC, T3ORTS 3SET UP OT COMMAND PACKET 

753 032332 012737 176750 036606 MOV e6 rk ;SET UP DELAY COUNTER 
032 004737 016054 10$: JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 

755 032344 103426 BCS 20% ;6R IF INIT WAS OK 

756 032346 DELAY 250 sDELAY ROUTINE CALL 
032346 012727 000250 MOV @250,(PC)+ 
032352 . WORD 0 
032354 913727 002116 MOV LSOLY,(PC)-+ 
032360 . WORD 0 
032362 005367 177772 DEC ee PC) 
032366 001375 BME 
032370 005367 177756 DEC “32C PC) 
032374 001367 BNE .-20 

757 032376 005337 036606 DEC T3O00L Y ;BUMP COUNTER 

758 032402 001356 BNE 10% ;68R, IF MORE COUNTING 70 DO 
032404 005237 002214 INC FATFLG sERROR COUNT 

763 032410 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

764 032412 ERROF ERRNO, SFIERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
0324.2 104455 TRAP CSEROF 
032414 000311 . WORD 201 
032416 00 . WORD SFIERR 
032420 012114 -WORD SFIMSG 

765 032422 20%: 

766 032422 013737 002174 036450 MOV UNITN, TSOD0SW 3SET UP UNIT NUMBER 

2d 032430 012704 036430 MOV @TSOPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

769 § $O66666660666006066066666666060666480600000600005 640006204868 

770 ; 

a ; ISSUE WRITE CHARACTERISTICS COMMAND 

H 

773 PRESSE EAEEEEESESESESSESEEEESESEEEESESEEEERESSEEEEEEEEEED 

774 

775 032434 004737 010742 JSR PC,WRTICHR s ISSUE WRITE CHARACTERISTICS 

776 032440 103407 BCS 23% ;BR, IF COMMAND ISSUED OK 

777 032442 005237 002214 INC FATFLG ;ERROR COUNT 
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TEST _ SKIP TAPE MARK 
781 032446 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
782 032450 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
032450 104456 TRAP CSERHRD 
032452 000312 WORD 2 
032454 005052 .WORD WRTMSG 
032456 012114 . WORD SF IMSG 
783 032460 23%: CKLOOP ;LOOP IF SELECTED 
. 032460 104406 TRAP CS$CLP1 
Ln Poti ti iit iii iii titititiiiititititiiitiiititiiir titi ri it) 
786 3 
787 ; ISSUE A REWIND 10 TAPE DRIVE AND WAIT FOR SSR TO SET 
788 
789 | SbdSeudesenenssceeooosscosscosessoesossesoessoeeeeseeeess 
790 
791 032462 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
032466 103411 6cS 30$ ;6PR, IF NO PROBLEM 
793 032470 010004 MOV RO,R4 sGET PACKET ADORESS 
794 032472 016501 000002 MOV TSSRCRS),R1 :GET STATUS REGISTER 
795 032476 37 002214 INC FATFLG sERROR COUNT 
799 032502 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
032502 104456 TRAP CSERHRD 
032504 000313 -WORD 203 
032506 040170 .WORD T3ORWN 
032510 012126 .WORD PKTSSR 
800 0325i2 30$: CKLOOP ;LOOP IF SELECTED 
nee 032512 104406 TRAP CSCLP1 
802 {O86 00660600004600600000046046666000060000000400000000000008 
803 F 
a4 ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
oes  eanccsccosscoccscoosssoossessososseoccosesesossonssoesese 
608 032514 013701 036460 MOV T30BFR+6,R1 sPICK UP XSTO 
809 032520 010102 MOV R1,R2 ;SET UP EXPECTED 
810 032522 052702 000002 BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
611 032526 020102 CMP R1,R2 ;D0ES EXP = REC'D 
812 032530 001406 BEQ 40% ;8R, IF EQUAL (OK) 
813 032532 005237 002214 INC FATFLG sERROR COUNT 
817 032536 ERRHRD ERRNO, TSOBOT ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
032536 1044 TRAP CSERHRD 
032540 000314 -WORD 204 
032542 037771 .WORD T30B0T 
032544 015554 .WORD EXPREC 
818 032546 40$: CKLOOP ;LOOP IF SELECTED 
032546 1 TRAP C$CLP1 
819 032550 012737 000001 036604 MOV $1.,T30FCN 3SET “FILE” COUNTER AT 1 DECIMAL 
820 032556 012703 000001 64%: MOV #1,R3 ;ONE RECORD PER “FILE” 
621 013737 003116 036552 65%: MOV FREE , TSOWB iSET UP PACKETS'S WRITE BUFFER 
a 032570 012737 003720 036556 MOV 92000. , T30SZ ;SET RECORD SIZE AT 2000 BYTES 
824 § 966666000660660666600066606066660660600460060066060664080008 
825 ; 
4 ;WRITE DATA,ACK,CVC=1 COMMAND 
828 5 Ooensooecaoososcooosossooensoossooeesosooesseenesseseeese 
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012737 


140005 036550 
036550 
036604 


141011 036550 
036550 


000000 
016330 
000002 
000200 


002214 


036604 
036604 000096 


708: 


MOV #140005 , TSOPK3 
MOV @TSOPKS ,R4 

MOV TSOFCN,R2 

SWAB R2 

MOV R3,R1 

ADO R2,R1 

MOV R1, FREE 

MOV R4, TSOBCRS ) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV SR ,R2 

chp R1,R2 

BEQ 70% 

INC FATFLG 

ERRHRD ERRNO, TSOWDD, PKTSSR 
CKLOOP 

INC R3 

chp R3, 21 

BNE 65% 


B10 


SEQ 0118 


4 ie ry cote’ Bateat COMMAND 
T WP R4 PACKET ADORESS 
1GET FILE COUNTER 


sARE THEY 
:6R, IF Ox 
sERROR COUNT 

3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 205 
.WORD T30W00 
.WORD PKTSSR 


sLOOP IF SELECTED 


RAP 
sCOUNT THE RECORD COUNTER DOWN 
sAT 20 YET 
3B8R, IF NOT AT 20 RECORDS WRITTEN 


SWRITE TAPE MARK, ACK,CVC*1 COMMAND 


#141011, TSOPKS 
@TSOPKS ,R4 


160%: 


FATFLG 


Eo 


ERRNO, TSOWDC , PKTSSR 


CKL 

INC T30F CN 
CMP TSOFCN, 06 
BNE 64% 


sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


TSSR 
sSET UP A ay (SSR ONLY) 
sWAS STATUS GOOD 

s6R, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER we M. 


CSERHROD 
-WORD 206 
-WORD TSOWDC 
.WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 
sCOUNT THE “FILE” COUNTER DOWN 
sWRITE S FILE TO TAPE 
38R, IF NOT AT S FILES WRITTEN 


PESCEEASAEHAHKEHERAPHRGAHOSHEKESHHREKLEHEAHHRACSAPKAKHEAAASRBEO 


H] 
sWRITE TAPE MARK ,ACK,CVC#1 COMMAND 


t] 
§ SSSSSESSESSHSHESSSESHEHESSHSHSHSSESSHOSSEHSHSSSESESSEEEHOEE 
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882 
883 032770 
884 032776 


0 
931 023130 
033130 
932 033132 


012737 


013701 
010102 
02 


104406 
012703 


141011 036550 
036550 


016330 
000002 
000200 


002214 


011074 


000002 
002214 


002214 


036566 


C10 
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MOV #141011, TSOPKS 

MOV @TSOPKS ,R4 

MOV R4, TSOBCRS ) 
»WAITF 


JSR 

MOV TSSR(RS),R1 
MOV @SSR ,R2 
chp R1,R2 

BEQ 165% 

NC FATFLG 


I 
ERRHRD ERRNO, TSOWDC ,PKTSSR 


165%: CKLOOP 


SEQ 0119 


sWRITE TAPE MARK ,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
COMMAND 


uP 
sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

s6R, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER WRT TAPE M. 


TRAP CSERHRO 
-WORD 207 
«WORD TS3OWOC 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP C&CLP1 


sOOSCRHOSERESREEEEESEEEEEESEEESEEEEEEDEEESEEOSEEEEEEESESES 
3 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


° 
fF SCHHSEAKARESSSERIAHHSEHAHDOSHHSEARHSKOARHASHHORARSEALAGARESE HOE 


JSR PC ,REWIND 

BCS 1708 

MOV RI,R4 

MOV TSSRCRS),R1 

INC FATFLG 

ERRHRD ERRNO, TSORWN,PKTSSR 


170%: CKLOOP 


sCALL TAPE cy # COMMAND 
NO PROBLEM 


IF 
sGET PACKET ADDRESS 
sGET STATUS ye 


sERROR C 
sREWIND NOT ACCEPTED 


FETOTEAESHSE SRISTHAPPHLOHSOHHRGLHEAHHS KASS HTSLACHEHEADEAHAHSEE 


H 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


é 
PESHKOCSASEHSESSATEHSGASEHSASLABRSHASHOHSHKESSCAPHSSSSESEHSEHSGDEDHS 


mov TSOBFR+6,R1 
MOV R1,R2 

BIS #6171,R2 
CMP R1,R2 

BEQ 160% 


IWC FATFLG 
ERRHRD ERRNO, TS0B0T ,EXPREC 


1603: CKLOOP 
MOV @TSOIMV,R3S 


TRAP CSERHRD 
-WORD T 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCcLP1 
sPICK UP XxSTO 
sSET UP EXPECTED 
1SET BOT BIT IN EXPECTED 
sD0ES EX® = REC'D 
s8R, IF EQUAL (OK) 
sERROR COUNT 
s TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
-WORD 209 
.WORD EXPREC 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
sSET UP POINTER TO COMMAND TABLE 


Be 


TEST 1 


933 0331356 
934 033144 
935 033150 
936 


973 033316 
033320 


013737 
011337 
012704 


005052 
012114 
104406 


002174 
036446 
036430 


010742 
002214 


141010 
000001 
036550 


000000 
176750 
016330 
000002 


000250 
002116 
177772 
177756 
036606 
000200 


002214 


036450 


036550 
036552 


036606 


- MARDWARE TEST 1-6 TEST MACRO M1113 14-JUN-84 16:41 
TEST 2: SKIP TAPE MARKS 


UNITN, T300SW 


(R3), TSOETM 


@TSOPACKET ,R4 


SEQ 0120 


sSET UP UNIT NUMBER 
sGET NEXT COMMAND 
sSUBROUTINE NEEDS PACKET ADDRESS 


J SRHSASASSSSHSSSSSSHHASSHSSHEHSSSHSESSSSASESSEHEHEOEHESSEEEEE 


; ISSUE WRITE CHARACTERISTICS COMMAND 


a 
i SHHHSASAHSHSSASASHSSSSSHSSSSSSSHHASEHSSHSSESHSSHSESHSSSESEEEES 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 


1883: CKLOOP 


PC, ,WRTCHR 
168% 
FATFLG 


sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 


sERROR C 
sSAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC — 


CSERHRD 
TUORO 210 
-WORD  WRTMSG 
WORD SFIMSG 


sLOOP IF SELECTED 
TRAP CSCLP1 


§ SOHSSSSSSSSHSSSSSSSSASSSEHSSSSSESSHSSSSSSSEHSESHESSEHSSEEEES 


}SKIP TAPE MARK,ACK,CVC*1 COMMAND 


3 
§ OBS 4ESHSSSSHSSSASSSSSSESSSSSSSSSSHESESSSSSSSSSSHSHSSESSEEE 


MOV 
MOV 
MOV 
189%: MOV 
MOV 
1908: JSR 
MOV 
BIT 
BNE 
DELAY 
OEC 
BNE 
1918: MOV 
CMP 
BEQ 


INC 
ERRHRO ERRNO, TSOSKM,PKTSSR 


#141010, TSOPKS 
3ORB 


#1.,T 
@TSOPK3 ,.R4 
oP age 2s 


5000. , TSOOLY 
TF 


PC WAI 
TSSACRS),R1 
@SSR, 


191% 
250 


192% 
FATFLG 


sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
sSET UP NUMBER TO SKIP 

sSET UP R4 WITH PACKET ADORESS 

s ISSUE COMMAND 

sSET UP DELAY COUNTER 


sCALL DELAY ROUTINE 


MOV #250, (PC )- 
-WORD O 
MOV LSOLY.CPC)> 
-WORD O 
DEC ? 
BNE 
DEC "20¢PC) 
BNE .-20 
sBUMP DELAY ROUTINE 
s6R, IF MORE DELAY TO GO 
sSET UP EXPECTED (SSR ONLY) 


sWAS STATUS GOOD 
s6R, IF et ge ay WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER SKIP TAPE M. 
TRAP CSERHROD 
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TEST 2: SKIP TAPE MARK 
979 033334 1928: CKLOOP ;LOOP IF SELECTED 
033334 104406 TRAP CSCLP1 | 
981 MITiIii iti iiiititiiiitiiiiiiitiitiiiitiitiiiiiiiti ti iiit ty. 
982 3 
983 3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER | 
3 
ss TITITIt (Ti iiiiiiiiitiiiiiiiiiiiifiiiitiiriiiiiiiti tii iit 
986 
987 033336 013701 036460 MOV T3OBFR+6,R1 sPICK UP XSTO 
988 033342 010102 MOV R1,R2 sSET UP EXPECTED 
989 023344 052702 100000 BIS 8IT15,R2 ISET _ 4g IN EXPECTED 
990 033350 020102 CMP R1,R2 sD0ES E = REC'D 
| 991 033352 001406 BEQ 195% sBR, IF “tour (OK) 
992 033354 005237 002214 INC FATFLG sERROR COUNT 
| 996 033360 ERRHRD ERRNO, TSOTMK ,EXPREC 3 TMK NOT SET AFTER WRT TAPE MARK 
033360 104456 TRAP CSERHRD 
033362 000324 -WORD 212 
‘ 033364 040444 -WORD T3OTMK 
033366 015554 -WORD EXPREC 
997 033370 195$: CKLOOP 3LOOP IF SELECTED 
| 033370 104406 TRAP CSCLP1 
$98 033372 012700 177777 MOV #177777,RO0 sVALUE TO WRITTEN TO MEMORY 
999 033376 004737 017502 JSR PC ,.FILLMEM sFILL MEM WITH ALL ONES 
1000 033402 013737 003116 036552 MOV FREE , TSORB sSTARTING READ BUFFER ADORESS 
i 
1002 aTiTriitiiiiiiiiitiiii ti iitiiiiitiiiittiiitiiiiitiiiiitity 
1003 3 
| oes sREAD FORWARD,.ACK.CVC=1 COMMAND 
F 
| 1006 Prvriiiiititiiitiititiiiiiiiitiiiitititiiiiiiiitiiiiititit tf 
1007 
1008 033410 012737 140001 036550 MOV #140001 , TSOPK3 sREAD FORWARD,ACK,CVC=1 COMMAND 
1009 033416 012704 036550 MOV OT3OPK3,R4 sSET UP R4 WITH PACKET ADORESS 
1010 033422 612737 003720 036556 MOV #2000. , T30SZ sSET UP RECORD SIZE IN PACKET 
1011 033430 010465 000000 MOV R4, TSOBC(RS) sISSUE COMMAND 
1012 033434 004737 016330 JSR PC ,WAITF iWAIT FOR SSR TO SET 
1013 033440 016501 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
1 033444 012702 000200 MOV @SSR ,R2 3SET UP EXPECTED 
1015 033450 020102 CMP R1,R2 sARE THEY EQUAL 
1016 033452 001406 BEQ 200% sBR, IF OK 
1017 033454 005237 002214 INC FATFLG sERROR COUNT 
1021 ERRHRD ERRNO, TSORDF ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
033460 104456 TRAP CsERHRD 
033462 000325 . WORD 1 
033464 037343 .WORD T3ORDF 
033466 0 .WORD PKTSSR 
1022 033470 2008: CKLOOP ;LOOP IF SELECTED 
033470 104406 TRAP CsCLP1 
1023 033472 017701 147420 MOV SFREE ,R1 sFIRST LOC IN READ BUFFER 
1024 033476 012702 177777 MOV #177777 ,Re sEXPECTED IF NO DATA TRANS. 
1025 033502 020102 CMP R1,R2 s0I0 ANY DATA GET TRANSFERRED 
1026 033504 001006 BNE tad 36R, IF NO DATA TRANS (GOOD) 
1027 033506 005237 002214 INC FLG sERROR COUNT 
1031 033512 ERRMRD ERIN T3OOTR ,EXPREC sOATA TRANSFERRED ON READ TAPE MARK 
033512 104456 TRAP CSERHRD 


033514 000326 -WORD 214 
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TEST 2: SKIP TAPE MARKS 
033516 041020 WORD T3OCTR 
033520 015554 -WORD EXPREC 
1032 033522 2208: CKLOOP ;LOOP IF SELECTED 
033522 104406 TRAP CSCLPi1 
1033 033524 012702 001001 MOV #1001,R2 sSET UP RECORD NUMBER EXPECTED (FILE 2) | 
1034 033530 017701 147362 MOV @FREE ,R1 3GET INFO FROM BUFFER 
1035 033534 020201 CMP R2,R1 sARE THEY 
1036 033536 001406 BEQ Fares ;B8R, IF EQUAL (OK) 
1037 033540 005237 002214 INC FATFL sERROR COUNT 
1041 033544 ERRHRD ERAN. T3SOPTB ,EXPREC sRECORD POSITION WAS NOT — 
033544 104456 CSERHRO 
033546 000327 TWORO 215 
033550 037172 . WORD T30PTB 
033552 015554 -WORD EXPREC 
1042 033554 2283: CKLOOP ;LOOP IF SELECTED 
ae 033554 104406 TRAP CSCLP1 
1 
1044 PROSEKHEHSHEHHARARETEHREHHEHEAEAEASHEHESHSAEEHDEHHEHHSHESEDSHHSOHS 
1045 3 
oy sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
1 F 
1048 FERRE ATHKEHEASAASSEHAHDAKRARHOAKRHSHHHHKEKHRESEHSSSASAMSE HERE SHE 
1049 
1050 033556 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
1051 033562 103411 ecs ig # s6R, NO PROBLEM 
1052 033564 010004 MOV RO,R sSAVE PACKET ADORESS | 
1053 033566 016501 000002 MOV TSSRCRS), Ri sGET TSSR STATUS 
1054 033572 005237 002214 INC FATFLG sERROR COUNT 
1058 033576 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
033576 104456 TRAP CSERHRD 
033600 000330 -WORD 216 
033602 040170 .WORD T 
033604 012126 .WORD PKTSSR 
1059 033606 230: CKLOOP ;LO00P IF SELECTED 
a 033606 104406 ' TRAP C$CLP1 
1061 { FSASSSHSSHASSSSSSSSSSSSSSSSESHSSSSSSSSSSHSESSSSHSSSHESSESES 
1062 3 
ee 3;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
3 
1065 f PROSSSSSSSEEEESSESSSSSESSEEEEEEEESESESEEOSESESESESEEEEESS 
1066 
1067 033610 013701 036460 MOV T30BFR+6,R1 sPICK UP XxSTO 
1068 033614 010102 MOV R1,R2 sSET UP EXPECTED 
1069 033616 052702 000002 BIS @#6IT1,R2 sSET BOT BIT IN EXPECTED 
1070 033622 020102 CMP R1,R2 3D0ES EXP = REC'D 
1071 033624 001406 BEQ 240% 3BR, IF EQUAL (OK) 
1072 033626 005237 002214 INC FATFLG sERROR COUNT 
1076 033632 ERRHRD ERRNO, TSOBOT ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
033632 104456 TRAP CSERHRD 
033634 000331 -WORD 217 
033636 037771 .WORD T3OBOT | 
033640 015554 .WORD EXPREC 
1077 033642 240%: CKLOOP 3;LO00P IF SELECTED 
033642 104406 TRAP CSCLP1 
1078 033644 005723 TST CR3)+ sPOINT TO NEXT POSITION 


1079 033646 011301 MOV (R3),R1 sGET NEXT COMMAND ETC 
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ST 1 - HARDWARE TEST 1-6 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0123 
TEST 2: SKIP TAPE MARKS 
1080 033650 020127 177777 CMP R1,0177777 sEND OF TABLE MARKER 
10861 033654 0014 BEQ 330% 36R, IF AT END OF TABLE 
1082 033656 000137 033144 JMP 182$ + JUMP TO MORE COMMANDS TO DO 
1083 033662 3308: CKLOOP ;LOOP IF SELECTED 
03. 104406 TRAP CSCLP1 
1084 033664 ENDSUB g<eecececccee END SUBTEST >>>>>>>>>>> 
033664 10044; 
033664 0440 TRAP CsESuB 
1085 033666 023727 002214 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
1086 033674 10 BLO 999% s6R, IF LESS THAN 25 
1087 033676 004737 017262 JSR PC ,CKOROP sTRY TO OROP THE UNIT 
1088 033702 999$: 
1089 s¢ 
1090 3 
1091 sTEST 2, SUBTEST 2 
1092 F 
1093 sVERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
1094 3;MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
1095 ;0F 2,3,8,64,256, AND 512 ARE TESTED. THE 
1097 sTESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 
Hy 
1098 H 
1099 3 
1100 ‘> 
1101 
1102 033702 BGNSUB g3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033702 T2.2: 
033702 1 TRAP C3BSuU8 
1103 033704 004737 041202 JSR PC, TSOREST 3SET COMMAND PACKET 
1104 033710 005037 036604 CLR T3OFCN ;CLEAR FILE COUNTER 
1105 033714 004737 041274 JSR PC, T3SORT2 sSET UP OTHER COMMAND PACKET 
1106 033720 004737 031336 JSR PC, T3SORTS 3sSET UP OTHER PACKET 
1107 033724 012737 176750 036606 MOV #65000. , TSODLY 3SET UP DELAY COUNTER 
1106 033732 004737 016054 10%: JSR PC .SOF INIT 300 INITIALIZE CONTROLLER 
1109 033736 103426 ecs 20% s6R IF INIT WAS OK 
1110 033740 DELAY 250 SDELAY ROUTINE CALL 
0337 012727 000250 @250,(PC)+ 
033744 -WORD O 
033746 013727 002116 MOV LSOLY.CPC)-+ 
033752 . WORD 0 
033754 005367 177772 DEC * PC) 
033760 001375 BNE 
033762 367 177756 DEC "32 PC) 
033766 001367 BNE .-20 
1111 033770 005337 036606 DEC T3OOLY sBUMP COUNTER 
1112 033774 001356 BNE 10% 38R, IF MORE COUNTING TO DO 
1113 033776 37 002214 INC FATFLG sERROR COUNT 
1117 034002 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 
1116 034004 ERROF ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS a = 
034004 104455 CSEROF 
034006 000332 TWORO 218 
034010 003646 .WORD SFIERR 
034012 012114 .WORD SFIMSG 
1119 034014 20%: 
1120 034014 013737 002174 036450 MOV UNITN, T300SW +SET UP UNIT NUMBER 
1121 034022 012704 036450 MOV @T3OPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEG 0124 
TEST 2: SKIP TAPE MARKS 
1123 FSSSSAASAHASSSAHEAASAESHESHEAEHEEEESEEHEHESHESEEESEEEHRESEEEEE 
1124 ; 
1125 ;ISSUE WRITE CHARACTERISTICS COMMAND | 
Tt | Seeeonssrerecosscooocssesesssscossosenseeoooecesooesoese | 
1128 
1129 034026 004737 010742 JSR PC, WRTCHR + TSSUE WRITE CHARACTERISTICS 
1130 034032 103407 BCs 23% BR, IF COMMAND ISSUED OK 
1131 034034 005237 002214 INC FATFLG sERROR COUNT 
1135 034040 010001 MOV RO,R1 sSAVE CONTENTS OF T 
1136 034042 E ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
034042 104456 CSERHRD 
034044 000333 Mono 219 
034046 005052 .WORD WRTMSG 
034050 012114 .WORD  SFIMSG 
1137 034052 238: CKLOOP ;LOOP IF SELECTED 
sei 034052 104406 RAP = C$CLP1 
1139 PROHAKAEKERESLHSERSESHERSEADEARESEEAEESE SEGARA HESHARHEE EAE K 
1140 Fy 
1141 ;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
3 
| 1143 f PCSEESESESSESEEEESEDEEMESEEEESESESEEEESEEEEEEESEEEEESEEES 
144 
1145 034054 004737 011074 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
1146 034060 103411 Bcs 30% 36R, IF NO PROBLEM 
1147 034062 010004 MOV RO,R4 :GET PACKET ADDRESS 
| 1148 034064 016501 000002 MOV TSSR(RS),R1 :GET STATUS REGISTER 
1149 034070 005237 002214 INC FATFLG sERROR COUNT 
| 1153 034074 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
034074 104456 TRAP = CSERHROD 
034076 000334 .WORD 220 
034100 040170 “WORD  T3ORWN 
| 034102 012126 .WORD PKTSSR 
1154 034104 30$: CKLOOP ;LOOP IF SELECTED 
| ae 0 104406 TRAP = C$CLP1 
1156 PESHHEKAEHRATHESHSSEESAKSHARAHAOSERERESHRAERSEEOEAESAREEH ERE SES 
3 
1138 ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
| yer s eeccecescsscosecocsoscoososcoscesooeseseesonsossesosesees 
161 
| 1162 034106 013701 036460 MOV T30BFR+6,R1 sPICK UP XxSTO 
1163 034112 010102 MOV R1,R2 3SET UP EXPECTED 
1164 034114 052702 000002 gIS @B1T1,R2 sSET BOT BIT IN EXPECTED 
| 1165 034120 020102 CMP R1,R2 ;D0ES EXP = REC'D 
| 4166 034122 001406 BEQ 40% :8R, IF EQUAL (OK) 
| 1167 034124 005237 002214 INC FATFLG ;ERROR COUNT 
| 1171 034130 ERRHRD ERRNO, T30B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
034130 104456 TRAP § CSERHRO 
034132 00033 .WORD 221 
034134 037771 ‘WORD T3OBOT 
034136 015554 “WORD EXPREC 
/ 4172 034140 40%: CKLOOP ;LOOP IF SELECTED 
| 634149 104406 TRAP = C$CLP1 
1173 034142 012737 000001 036604 MOV #1.,T30FCN ;SET “FILE” COUNTER AT 1 DECIMAL 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
TEST 2: SKIP TAPE MARKS 


1174 034150 012703 000001 645; MOV #1,R3 ;ONE RECORD PER “FILE” 
1175 034154 013737 003116 036552 65%: MOV FREE, TSOWB sSET UP PACKETS’S WRITE BUFFER 
1176 034162 012737 000024 036556 MOV 420. ,.T30SZ sSET RECORD SIZE AT 2000 BYTES 
77 
re a 
1179 3 
1180 ;WRITE DATA, ACK,CVC=1 COMMAND 
1861 3 
1182 { PORERAAEEEEEESESESESESEESESOEEEEEESEEEREDEEESEOEEESEEEEES 
1183 
1164 034170 012737 140005 036550 MOV #140005 , T30PK3 sWRITE ry “+ CvC=1 COMMAND 
1185 034176 012704 036550 MOV @T3OPK3 ,R4 sSET UP R4 WITH PACKET ADORESS 
1186 034202 013702 MOV T3OFCN,R2 sGET FILE COUNTER 
1187 034206 SWAB Re sMOVE TO UPPER BYTE 
1188 034210 010301 MOV R3,R1 ele RE ER 
1169 034212 ADD ° ILE COUNTER IN UPPER, RECORD @ LOW 
1190 034214 010177 146676 MOV R1,@FREE OY TO QUT PUT BUFFER 
1191 034220 010465 MOV R4, TSOBCRS) sISSUE COMMAND 
034224 004737 016350 JSR PC ,WAITF sWAIT FOR SSR TO SET 
1193 034230 016501 000002 MOV TSSRCRS),R1 sGET C S 
1194 034234 0127 000200 MOV @SSR ,R2 sSET UP EXPECTED 
034240 020102 CMP R1,R2 sARE THEY EQUAL 
1196 034242 001406 BEQ 70$ 3BR, IF OK . 
1197 034244 005237 002214 INC FATFLG sERROR COUNT 
1 034250 ERRHRD ERRNO, TSOWDD,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
034250 104456 TRAP cs 
034252 000336 -WORD 222 
034254 037120 -WORD T3OWDD 
034256 012126 .WORD PKTSSR 
1202 034260 708: CKLOOP ;LO0P IF SELECTED 
034260 104406 TRAP CSCLP1 
1203 034262 005203 INC R3 sCOUNT THE RECORD COUNTER DOWN 
0 020327 000021 CMP R3,021 sAT 20 YET 
1205 034270 001331 BNE 65% 3B8R, IF NOT AT 20 RECORDS WRITTEN 
1207 j POROCSSSERESOEESSSOESSDESEEESEEEEEEEEEEESESESESEESEEEEEES 
1208 3 
oH sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
3 
1211 PESRAHKERHSESEHSEEEKSEHEHEAEHRHAHEHSEHERESEHEAHEHAERASHAHEHHEEH EES 
1212 
1213 034272 012737 141011 036550 MOV #141011, TSOPKS sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
1214 034300 012704 036550 MOV @T3OPK3S ,R4 sSET UP R4 WITH PACKET ADDRESS 
1215 034304 010465 000000 mcy R4, TSOBC(RS) sISSUE COMMAND 
1216 034310 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 
1217 034314 016501 000002 MOV TSSR(RS), R1 sPICK UP TSSR 
1218 034320 0127 000200 MOV @SSR ,R2 3SET UP EXPECTED (SSR ONLY) 
1219 034324 020102 CMP R1,R2 ;WAS STATUS GOOD 
1220 034326 001406 BEQ 160% 38R, IF TERMINATION WAS GOOD 
1221 034330 005237 002214 INC FATFLG 3;ERROR T 
034334 ERRHRD ERRNO, TSOWDC,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE M. 
034334 104456 TRAP CSERHRD 
034336 000337 .WORDB 223 
034340 040312 .WORD TSOWDC 
034342 012126 .WORD PKTSSR 
1226 034344 160% CKLOOP ;LOOP IF SELECTED 
0 104406 TRAP CSCLP1 
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1279 034504 001406 BEQ 180% sBR, IF EQUAL (OK) 


TEST 1 - HARDWARE Test 1- 8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0126 
TEST 2: SKIP TAPE MARK 
1227 034346 005237 036604 INC T30F CN ;COUNT THE “FILE” COUNTER DOWN 
1228 034352 023727 036604 000031 CMP T30FCN, 025. ;WRITE 25 FILES TO TAPE 
1229 034360 001273 BNE 643 :BR, IF NOT AT 25 FILES WRITTEN 
ieee FSSSSAAASAAAAKAHSEASESHSESEEESEAEEESEEHEEEEEASEHEAHEEEESAEEEEESD 
1232 3 
1233 ;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
34 3 
te J SSSSHSSSSSSSSHSSSEHASHASHSHESEESSEESEEEEHESEAEEESEESEHESEEE 
1236 
1237 034362 012737 141011 036550 MOV #141011, T30PK3 ;WRITE TAPE MARK,ACK,CVC=1 COMMAND 
1238 034370 012704 036550 MOV @T30PK3,R4 ;SET UP R& WITH PACKET ADDRESS 
1239 034374 010465 000000 MOV R4, TSOBCRS ) sISSUE COMMAND 
| 4240 034400 004737 016330 JSR PC, WAITF ;WAIT FOR $sR TO SET 
| 1241 034404 016501 000002 MOV TSSR(RS),R1 ;PICK UP T 
|: 1242 034410 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED (SSR ONLY) 
|: 42@3 034414 020102 CMP R1,R2 ;WAS STATUS GOOD 
| 4244 034416 061406 BEQ 165$ ;8R, IF TERMINATION WAS GOOD 
| 1245 034420 005237 002214 INC FATFLG sERROR COUNT 
| «1249 034424 ERRHRD ERRNO, TSOWOC,PKTSSR ;TSSR NOT CORRECT AFTER WRT TAPE M. 
| 034424 104456 TRAP  CSERHRD 
034426 000340 .WORD 224 
034430 040312 .WORD T3OWDC 
034432 012126 “WORD PKTSSR 
| 1250 034434 165%:  CKLOOP ;LOOP IF SELECTED 
re 034434 104406 TRAP = C$CLP1 
a | 
| 1252 PSRKAAEKREREEESKEHKEAERASRREREEAERARERERHRHERESHPRSAAHRESE ASE 
1253 3 
| 1254 ;ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
1256 | esenenooenonnsnnasonsnenenesennsesonosesooosoonsesqeeenee 
1257 
| 1258 034436 004737 011074 JSR PC REWIND sCALL TAPE REWIND COMMAND 
1259 034442 103411 BCS 1708 NO PROBLEM 
1260 034444 010004 MOV RO,R IGET PACKET ADDRESS 
1261 034446 016501 000002 MOV TSSRCRS).RL ;GET STATUS REGISTER 
1262 034452 005237 002214 INC FATFLG sERROR COUNT 
1266 034456 ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
034456 104456 TRAP CSERHRD 
034460 000341 .WORD 225 
034462 040170 “WORD  T3ORWN 
034464 012126 "WIRD  PKTSSR 
1267 034466 170%:  CKLOOP ;LOOP IF SELECTED 
034466 104406 TRAP = C$CLP1 
iH SeReee PKS EREEEKHACEERSERKAREHERKARERHSEEAHRAREAAEERKHARA KR EEH 
1270 ; 
1271 ;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
1273 : SHESESESSESSSESSSSESSSSSESSSSSSSSEHASSSASESHKRSASHEESSHKSASEKEAED 
1274 
1275 034470 013701 036460 MOV T3OBFR+6,R1 ;PICK UP XSTO 
1276 034474 010102 MOV R1,R2 3SET UP EXPECTED 
1277 034476 052702 000002 BIS @BIT1,R2 1SET BOT BIT IN EXPECTED 
| 1278 034502 020102 CHP sé}, R2 ;DOES EXP = REC'D 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 14-JUN-84 16:41 SEQ 0127 
TEST 2: SKIP TAPE MARKS 
1280 034506 005237 002214 INC FATFLG sERROR COUNT 
1284 034512 ERRHRD ERRNO, T3SOB0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
034512 104456 TRAP CSERHROD 
034514 000342 -WORD 226 
034516 037771 .WORD T3O0B0T 
034520 015554 .WORD EXPREC 
1285 034522 180%: CKLOOP ;LOOP IF SELECTED 
034522 TRAP CSCLP1 
1286 034524 012737 000002 036604 MOV @2, TSOFCN sSET TO NUMBER OF SKIP “FILES” | 
1287 034532 012703 036566 MOV @TSOIMV RS ;SET UP POINTER TO COMMAND TABLE 
1288 034536 013737 002174 036450 MOV UNITN, T300SW ;SET UP UNIT NUMBER 
1289 034544 011337 036446 182$: MOV (R3), TSOETM 3GET NEXT COMMAND 
1290 034550 012704 036430 MOV @T3OPACKET, R4 sSUBROUTINE NEEDS PACKET ADDRESS 
1291 
1292 Writitti iT titi iti tt riitiiitir iti tiritiiiiiiiiiii titi yy) 
1293 : 
he s ISSUE WRITE CHARACTERISTICS COMMAND 
3 
1296 | PROROOO800000000000005000000000066000060000080050000800088 
1297 
1298 034554 004737 010742 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
1299 034560 103407 BcS 88% sBR, IF on ISSUED OK 
1300 034562 005237 002214 INC FATFLG 
1304 034566 010001 MOV RO,R1 SAVE CONT ENTS OF TSSR 
1305 034570 ERRHRD ERRNO,WRTMSG, SFIMSG SWRITE CHARACTERISTISC —> 
034570 104456 CSERHRD 
034572 000343 TWORD 227 
034574 -WORD WRTMSG 
034576 012114 -WORD SFIMSG 
1306 034600 188$: CKLOOP 3LOOP IF SELECTED 
—_ 034600 104406 TRAP CSCLPi 
apes £006660000000000060006000600060060600006606000006000000000644% 
1 3 
sort 3SKIP TAPE MARK,ACK,CVC=1 COMMAND 
3 
asia §9006000600006000006000000606000600000060000000600000000000008 
131 
1314 034602 012737 141010 036550 MOV #141010, TSOPK3 3;SKIP TAPE MARK, yt i COMMAND 
1315 034610 013737 036604 036552 MOV T3OFCN, T3ORB 3SET UP NUMBER TO SK 
1316 034616 012704 036550 MOV @T3OPK3S ,R4 sSET UP R4 WITH PACKET ADORESS 
1317 034622 010465 000000 169%: MOV R4, TSOBC(RS) 31S 
1316 034626 012737 176750 036606 MOV #65000. , TSODLY SET DELAY COUNTER 
1319 034634 004737 016330 190%: JSR PC ,WAITF sWAIT FOR SSR TO SET 
1320 034640 016501 000002 MOV TSSRCRS),R1 sPICK UP TSSR 
1321 034644 032701 000200 BIT @SSR,R1 3IS SSR SET YET 
1322 034650 001017 BNE 191% sB8R, IF SSR IS SET 
1323 034652 DELAY 250 ;CALL DELAY ROUTINE 
034652 012727 000250 MOV 250, (PC)>+ 
034656 000000 .WORD 0 
034660 013727 002116 MOV LSDLY.CPC)+ 
034664 000000 .WORD O 
034666 005367 177772 DEC - “ PC) 
034672 001375 BNE 
034674 177756 DEC “2ac PC) 
034700 001367 BNE -20 
1324 034702 005337 036606 DEC T3OOLY ;BUMP DELAY ROUTINE 
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HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
SKIP TAPE MARKS 


BNE 190% 
191%: MOV @SSR ,R2 

CMP R1,Re2 

BEQ 192$ 

INC FATFLG 

ERRHRD ERRNO, TSOSKM,PKTSSR 
192%: CKLOOP 


SEQ 0128 


sBR, IF MORE DELAY TO GO 
sSET UP EXPECTED (SSR ONLY) 
sWwAS STATUS GOOD 

s8R, IF TERMINATION WAS GOOD 


sERROR COUNT 
sTSSR NOT CORRECT AFTER ~ TAPE M. 


CSERHRD 
° 228 
T30SKM 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


PPAHAAAHERAHAEHAHRESEEEHEHKEAEHEHKSEKREASAEH AHS EHHAKEASHENESHERE 


; 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
PRMROAAEAHKEHASEEHEAEHASESHEHSHSEHEKARESOCAREREESS AHEREEEEED 


MOV T3OBFR+6,R1 

MOV R1,R2 

BIS #BIT1S5,R2 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, TSOTHK,EXPREC 
195%: CKLOOP 

MOV @177777,RO0 

JSR PC .FILLMEM 

MOV FREE, TSORB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET TMK BIT IN EXPECTED 
sD00ES EXP = REC'D 


3 COUNT 
3; TMK NOT SET AFTER WRT — | 


PPAR AAe RASH EEAESAKAHAKARASEHKSEKEESEHAREKRERHEKEHERA KAR ARSEKRS EH HRGS 


;READ FORWARD, ACK,CVC=1 COMMAND 


3 
{ SHSHSESHSSSASSSESESESHESESSESSSESSSSSESSSESESESHESHSESESSEESESE 


MOV #140001 , TSOPK3 
MOV @TSOPKS ,R4 

MOV #20. ,T30 

MOV R4, TSOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 200% 


INC FATFLG 
ERRHRD ERRNO, TSORDF ,PKTSSR 


CSERHRD 

-WORD 229 
-WORD TS3OTMK 
.WORD EXPREC 

;L00P IF SELECTED 
TRAP C$CLP1 

;VALUE TO WRITTEN TO MEMORY 

sFILL MEM WITH ALL ONES 

sSTARTING READ BUFFER ADDRESS 

sREAD FORWARD,ACK,CVC=1 COMMAND 

3SET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

sSET UP EXPECTED 

;ARE THEY EQUAL 

;8R, IF OK 

sERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
8 230 
.WORD $TS3OROF 
. WORD PKTSSR 
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TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 14-JUN-84 16:41 
TEST 2: SKIP TAPE MARKS 


1425 035220 


013701 
010102 


146020 
177777 


002214 


036604 


000001 
145752 


002214 


011074 


000002 
002214 


036460 


200%: CKLOOP 


MOV @FREE ,R1 
MOV @177777,R2 
CMP R1,R2 

BNE $ 

INC 


FATFLG 
ERRHRD ERRNO, TSODTR,EXPREC 
220%: CKLOOP 
MOV T3OFCN,R2 
Re 
FLG 
ERRHRD ERRNO. T3OPTB ,,EXPREC 


226%: CKLOOP 


SEQ 0129 


;LOOP IF SELECTED 
TRAP CSCLP1 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
s0L0 ANY DATA GET TRANSFERRED 
sBR, IF NO on nee (GOOD ) 


sERROR 
sDATA TRANSFERRED ON — TAPE MARK 


TRAP CSERHRD 
-WORD 231 
-WORD TS3ODTR 

WORD EXPREC 


sLOOP IF SELECTED 


TRAP CsCLP1 
sGET NUMBER OF SKIPS 
sSET TO CORRECT FILE VALUE 


sERROR COUNT 
sRECORD POSITION WAS nat Sonnas® 


cs 
-WORD 232 
-WORD T3OPTB 
-WORC EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 


{ SSSHSESSSSKSSSSSSSEHSHSESSSSEASSSESSSESSEESEEEHSESSESEEEESEEEEEE 


; 
; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


é 
{ PSHRSSSHSSESESSESSESESSSASESSSESESESSESSSSESSEEHESSEKESESEEESEEEES 


PC ,REWIND 
230% 
RO,R4 
MOV TSSRCRS),R1 
FATFLG 


INC 
ERRHRD ERRNO, TSORWN,PKTSSR 


230%: CKLOOP 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
SAVE PACKET — 


T TSSR STA 
ERROR “COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


ta 


CsCLP1 


{ PRERSRESEESESEESEEEEREESSEEEESSEESESEESESEREESERESESEE SEES 
; 
;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


i 
J SSSSESSESEESSESESSESEESSEEEEESESSEAESEEESEEESSSEKEESEEEESEEES 


MOV T30BFR+6,R1 
MOV R1,R2 


sPICK UP XSTO 
sSET UP EXPECTED 


TEST 


N10 


- HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
MARKS 


035364 
035370 


1 
TEST 2: SKIP TAPE 


012727 
000000 


000002 


002214 


177777 
036604 


036604 
034544 


002214 
017262 


000017 


036606 


BIS @BIT1,R2 


CMP R1,R2 

BEQ Fates 

INC FATFL 

ERRHRD ERRNO. T3OB0T , EXPREC 


2403: CKLOOP 
TST (R3)+ 
MOV CR3),R1 
CMP R1,0177777 
BEQ 330% 
MOV T30FCN,R1 
Cut 
ROL R1 
MOV R1, T3OFCN 
182$ 
330$: CKLOOP 
ENOSUB 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ,CKDROP 
999: 


3¢ 


; 
sTEST 2, SUBTEST 3 
; 


; VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
THE TAPE IS POSITIONED AT BOT CAUSES 


s ISSUED 


SEQ 0130 

;SET BOT BIT IN EXPECTED 

sD0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

sERROR COUNT 

; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 234 
-WORD T30B0T 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 
sPOINT TO NEXT POSITION 
OMMAND ETC. 


sLOOP IF SELECTED 
TRAP CSCLP1 
eaaaeaisaas) ate poo gg >>2>>>>>>>> 
0045: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
on IF LESS THAN 25 
Y TO DROP THE UNIT 


WHILE 
sFUNCTION REJECT Lg WITH THE NON-EXECUTABLE 


sFUNCTION (NEF) ERROR BIT 
3 


JSR PC, TSOREST 
T30F CN 

JSR PC, T3ORT2 

JSR PC, TSORTS 


MOV #65000. ,T 
10$: JSR PC ,SOFINIT 

ecs 20$ 

DELAY 250 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.3: 


TRAP C$B8SUB 
sSET COMMAND PACKET 
sCLEAR FILE COUNTER 


300 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

sDELAY ROUTINE CALL 
MOV #250, (PC )+ 
-WORD 0 
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035372 
035376 


1513 035514 
1517 035520 


03 
1518 035530 

035530 
1519 


1520 


013727 
000000 


3646 
012114 


013737 
012704 


0021326 
177772 
177756 
036606 
002214 


002174 
036430 


010742 
002214 


011074 


000002 
002214 


036450 


DEC T3OO0L Y 

BNE 10% 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 


MOV UNITN, TSO0SW 
MOV @TSOPACKET ,R4 


sBUMP COUNTE 
s;6R, IF MORE “COUNTING TO DO 


sERROR 
: CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
. WORD 
. WORD 


sSET UP UNIT 


NUMBER 
sSUBROUTINE NEEDS PACKET ADORESS 


; 
s ISSUE WRITE CHARACTERISTICS COMMAND 


a 
J SSHSSSSSSSSSSSSSSHSSSSSSSSSSHSSSHSHSHSSSSSASSSESSSSSSSSESESE 


JSR PC ,WRTCHR 

BCS 23% 

INC FATFLG 

MOV RO,R1 

ERRHRO ERRNO, WRTMSG, SF IMSG 


23%: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
on ISSUEL OK 


sBR, 
OUNT 
3 SAVE CONTE S OF TSSR 
SWRITE DUMACTERISTISc — 
yr 
. WORD 
. WORD 
3LOOP IF SELECTED 
TRAP 


f SSOHSSSSSSSHSSSHSSSSSSSSSSSSHSSHSESSSSSSSSSSSSSSHSHSESSESES 


3 
s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


3 
J SSHHOSSSSSSSSSSSSHSSSESSSSSSESSSSSHSSSSOSKESSSSSSSSSESSSEEE 


JSR PC ,REWIND 
Bcs 30% 
MOV RO,R4 

TSSRCRS),R1 


MOV 
INC FATFLG 
ERRHRD ERRNO, TSORWN,PKTSSR 


308: CKLOOP 


sCALL TAPE REWIND COMMAND 

s6R, IF NO PROBLEM 

sGET PACKET ADDRESS 

sGET STATUS REGISTER 
sERROR COUNT 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


at 


J SOSSHSSSESSESSESESSHESHSEHSHSSSSSESSESSHHEESESSSEHEESESHEHEE 





SEQ 0131 


pacha 
“6¢e) 
“2acee 
-20 


CSCLP1 


C11 
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TEST 2: SKIP TAPE MARKS 
1521 . : 
1522 3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
3 
13S J SHSHSHSSSSSSHSSSSHAOSSSSHSHSESEHSSEHSSESHESSSSHSESSESSHSEESEEEOEEES 
1525 
1526 035532 013701 036460 MOV TSOBFR+6,R1 sPICK UP XSTO 
1527 035536 010102 MOV R1,R2 sSET WP EXPECTED 
1528 035540 052702 000002 BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
1529 035544 020102 CMP R1,R2 sD0ES EXP = REC'D 
1530 035546 001406 BEQ 40% sBR, IF EQUAL (OK) 
1531 035550 005237 002214 INC FATFLG sERROR COUNT 
1535 035554 ERRHRD ERRNO, TSOBOT ,EXPREC + TAPE NOT AT BOT AFTER REWIND 
035554 104456 TRAP CSERHRD 
035556 000356 «WORD 236 
035560 037771 -WORD 1T3080T 
035562 015554 -WORD EXPREC 
1536 035564 40$: CKLOOP sLOOP IF SELECTED 
035564 104406 : TRAP CSCLP1 
44 035566 012737 000001 036552 MOV 61, T30WB sSET @ OF TM TO SKIP 
1 
1539 ITI ITT ititii ti iititiriiiiiiiiiiiiiitiitiiiiititiiiiiiiy 
1540 3 
coak sSKIP TAPE MARK REVERSE ,ACK,CVC*=1 COMMAND 
3 
1543 FPCCHESSEHSSSSHESEEESEESEESEEEDESESSEEEEEEESESOOEEESEEEES 
1544 
1545 035574 3912737 141410 036550 MOV #141410, TSOPK3 sSKIP TAPE MARK REVERSE ,ACK,CVC=1 CMD 
1546 035602 012704 036550 MOV @TSOPK3 ,.R4 sSET UP R4 WITH PACKET ADORESS 
1547 035696 010465 000000 Mov R4, TSOBCRS) sISSUE COMMAND 
1548 035612 004737 016330 JSR ° TF sWAIT FOR SSR TO SET 
1549 035616 016501 000002 MOV TSSACRS),R1 3sGET TSSR CONTENTS 
035622 100206 MOV @SSRISC!IBITLIBIT2,R] sSET UP EXPECTED 
1551 035626 020102 CMP 1,R2 sARE THEY EQUAL 
1552 035630 001406 BEQ 70% 36R, IF OK 
035632 005237 002214 INC FATFLG sERROR COUNT 
1557 035636 ERRHRD ERRNO, TSOIBT,PKTSSR 3TSSR INCORRECT AFTER WRITE DATA 
035636 104456 TRAP CSERHRD 
035640 000357 . WORD 39 
036761 . WORD T3OIBT 
035644 012126 .WORD PKTSSR 
1558 035646 70%: CKLOOP 3LOOP IF SELECTED 
— 035646 104406 TRAP CSCLPl 
tat PITTI TT Tiiit ii iriti it iiiiiiiiiiiiiiiiiiiiiiiiiitiitiiiii ty) 
1561 3 
noes sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
: 
fone Triiiiiitiitiiitiitiiiiiiititiiitiitiiiiiiiii iii iit) 
1 
1566 035650 013701 036460 MOV T3OBFR+6,R1 sPICK UP XSTO 
1567 035654 010102 MOV R1,R sSET UP EXPECTED 
1568 035656 052702 002000 Bis #6IT10,R2 sSET NEF BIT IN EXPECTED 
1569 035662 020102 cep R1,R2 sD0ES EXP = REC'D 
1570 035664 001406 BEQ 160% sBR, IF EQUAL (OK) 
1571 035666 005237 002214 INC FATFLG sERROR COUNT 
1575 035672 ERRHRD ERRNO, TSONEF ,EXPREC 3 TAPE NOT AT NEF 


035672 104456 TRAP CSERHRO 


D11 
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TEST 2: SKIP TAPE MARKS 

035674 000360 . WORD 240 
035676 040526 . WORD T3ONEF 
035700 015554 - WORD EXPREC 

1576 035702 1808: CKLOOP ;LOOP IF SELECTED 
035702 104406 RAP CSCLP1 

1577 035704 ENOSUB 3<eececceccce END SUBTEST >>>>>>>>>>> 
035704 L10046: 
035704 1 TRAP CSESUB 

1578 035706 023727 002214 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 

1579 035714 10 BLO 999% s6R, IF LESS THAN 25 

1560 035716 004737 017262 JSR PC .CKDROP sTRY TO OROP THE UNIT 

15861 035722 999%: 

1582 3¢ 

1583 3 

1584 sTEST 2, SUBTEST 4 

1565 $ 

1586 3 

1587 sVERIFIES THAT A SKIP TAPE MARKS REVERSE C 

1588 : ISSUED E THE TAPE IS POSITIONED JUST BEFORE THE 

1569 sFIRST RECORD ON APE (BUT NOT AT BOT) CAUSES TAPE 

1590 sSTATUS ALERT TERMINATION, WITH THE SEVERSE INTO BOT 

1591 3s(RIB) STATUS BIT SET. 

1592 3 

1593 ’ 

1594 3 

1595 3 

1596 3 

1597 3- 

1598 035722 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>»>>> 
035722 T2.4: 
035722 i TRAP Cs6SUB 

1599 035724 004737 041202 JSR PC, TSOREST 3SET COMMAND PACKET 

1600 035730 005037 36604 CLR T CN SCLEAR FILE COUNTER 

1601 035734 004737 041274 JSR PC, T3SORT2 ISET UP OTHER COMMAND PACKET 

1602 035740 004737 041336 JSR PC, T3ORTS 3SET UP OTHER COMMAND PACKET 

1603 035744 012737 176750 036606 MOV 5000. . TSODLY 3SET UP DELAY COUNTER 

1604 035752 004737 016054 10%: JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

1605 035756 103426 6cs 20% :8R IF INIT WAS OK 

1606 035760 DELAY 250 sDELAY ROUTINE CALL 
035760 012727 000250 MOV @250.,(PC)>+ 
035764 . WORD 
035766 013727 002116 MOV LSOLY.CPC)>+ 
035772 . WORD 0 
035774 7 177772 DEC ““< PC) 
036000 001375 
036002 7 177756 DEC "32cPC) 
036006 001367 BNE .-20 

1607 036010 005337 036606 OEC T3OOLY sBUMP COUNTE 

1606 036014 001356 10% 3BR, IF MORE COUNTING TO 00 

1609 036016 37 002214 INC FATFLG sERROR COUNT 

1613 036022 010001 RO,R1 ; CONTENTS OF TSSR REGISTER 

1614 036024 ERROF ERRNO, SFIERR , SFIMSG sFATAL ERROR TSSR WAS at OK 
036024 104455 TRAP CsEROF 
036026 000361 . WORD 241 
036030 003646 . WORD SFIERR 
036032 012114 . WORD SFIMNSG 

1615 036034 20%: 
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TEST “a SKIP TAPE MARKS | 

1616 036034 013737 002174 036450 MOV UNITN, T300SW sSET UP UNIT NUMBER 

1617 036042 012704 036430 MOV OTSOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

rr {PRAAAAAAHEHESEAERESERERESHEEESEEEEEREREEEREREDEDESEESESES 

1620 ; 

1621 s ISSUE WRITE CHARACTERISTICS COMMAND 

sees s Sodoenerencoeccoscosescecescosecesenoesoeseseeooseseees 

1624 

1625 036046 004737 010742 JSR PC,WRTCHR sISSUE WRITE a ehae ie 

1626 036052 103407 6cs 23% s6R, IF ONOn co SUED OK 

1627 036054 005237 002214 INC Ap 

1631 036060 010001 MOV RO,R RITE CONTENTS S OF TSSR 

1632 036062 ERRHRD ne Fat WRTMSG , SF IMSG E CHARACTERISTISC oo 
036062 104456 CSERHROD 
036064 000362 "MORO 242 
036066 005052 .WORD WRTMSG 
036070 012114 -WORD SFIMSG 

1633 036072 233: CKLOOP sLOOP IF SELECTED 

_ 036072 104406 TRAP CSCLP1 

1 

1635 j SOORAOEHESSEEEESEEEESSEREEESEESEEEEEEEESSESERESEESEOEOSESES 

1636 3 

etd s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

1639 : SROSHSHEAEHESEHSSSASESESESSEERESEEASEEREEESESEESESEOEESESES 

1640 

1641 036074 004737 011074 JSR PC REWIND sCALL TAPE REWIND COMMAND 

1642 036100 103411 ecs 30% 36R, IF NO PROBLEM 

1643 036102 010004 MOV RO,.R sGET PACKET ADORESS 

1644 036104 016501 000002 MOV TSRCRS), Ri sGET STATUS REGISTER 

1645 036110 005237 002214 INC FATFLG sERROR COUNT 

1649 036114 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
036114 104456 TRAP CSERHRD 
036116 000363 -WORD 243 
036120 040170 . WORD T3ORWN 
036122 012126 .WORD PKTSSR 

1650 036124 30$: CKLOOP sLOOP IF SELECTED 

—_ 036124 104406 TRAP CSCLP1 

— 3 PPPPTTT TTT TT TT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TT TT TTT 

1 3 

— 3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

— s eoecccccccnscccccnscsssossooceeecescosccencecesccsssceses 

1656 036126 013701 036460 MOV T3OBFR+6,R1 sPICK UP XSTO 

1659 036132 010102 MOV R1,R2 sSET UP EXPECTED 

1660 036134 052702 000002 BIS #8IT1,R2 :SET BOT BIT IN EXPECTED 

1661 036140 020102 CMP R1,R2 sD0ES EXP = REC'D 

1662 036142 001406 BEQ 40% ;8R, IF EQUAL (OK) 

1663 036144 005237 002214 INC FATFLG sERROR COUNT 

1667 036150 ERRHRD ERRNO, TSOB0T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
036150 104456 TRAP CSERHRD 
036152 000364 -WORD 244 
036154 037771 . WORD T3OBOT 


036156 015554 -WORD EXPREC 





Fi 
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TEST 2: SKIP TAPE MARKS 
1668 036160 40%: CKLOOP ;LOOP IF SELECTED 
036160 104406 TRAP = C$CLP1 
1669 036162 013737 003116 036552 MOV FREE, T3OWB ;SET UP GOOD WRITE BUFFER | 
1670 036170 012737 000400 036556 MOV 0256. ,130SZ ;SET UP SIZE | 
671 
ett J SOCHRASSSSSHSASHHASSHEAKAHEAASHEESEEEHEHEEOSEHESEEEEEESEERES 
1673 3 
1674 ;WRITE DATA, ACK,CVC#1 COMMAND 
1675 3 
1676 J SSHASEHASSSSSSSSSSSHESESSHESAESESESESESESHESESSEEEEEEEEADEEEE 
1677 
1678 036176 012737 140005 036550 MOV #140005, T30PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
1679 036204 012704 036550 MOV @T3OPK3,R4 ;SET UP R4 WITH PACKET ADORESS 
1680 036210 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND 
1681 036214 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 
| 1682 036220 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
1683 036224 012702 000200 MOV @SSR,R2 :SET UP EXPECTED 
| 4684 036230 020102 CMP R1,R2 ;ARE THEY EQUAL 
| 1685 036232 001406 BEQ 70% :8R, IF OK 
1686 036234 005237 002214 INC FATFLG ;ERROR COUNT 
| 1690 036240 ERRHRD ERRNO, TSOWDD,.PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
036240 104456 TRAP  CSERHRD 
| 036242 000365 WORD 245 
036244 037120 WORD T3OWDOD 
036246 012126 WORD  PKTSSR | 
| 1691 036250 70$: CKLOOP ;LOOP IF SELECTED | 
i! 036250 104406 TRAP —s- CSCLP1 
| 1693 f SRASSEESHEEESEAESESHESESHESEESEEHASEREHEAEAERHEEEEEESEEEES 
1694 3 
| 1695 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 
é 
\ 1697 fs SROHESESHESEEESEEEESESSEHESESOEEEEEEESESESEEOEEEEOERESEEEO EEE 
1698 
| 1699 036252 012737 000001 036552 MOV 01, T30W8 :@ OF TM TO SKIP 
1700 036260 012737 141410 036550 MOV #141410, TSOPK3 ;SKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 
1701 036266 012704 036550 MOV @T3OPK3,R4 ;SET UP R4 WITH PACKET ADORESS 
1702 036272 010465 000000 MOV R4, TSDBCRS) sISSUE COMMAND 
1703 036276 004737 016330 JSR sWAIT FOR SSR TO SET 
1704 036302 016501 000002 MOV TSSACRS), R1 sPICK UP TSSR 
1705 036306 012702 100204 MOV @SSRIBIT2!SC,R2 3SET UP EXPECTED (SSR AND SC ONLY) 
1706 036312 020102 CMP R1,R2 sWAS STATUS 
1707 036314 001406 BEO 160$ :BR, IF TERMINATION WAS GOOD 
1708 036316 005237 002214 INC FATFLG sERROR COUNT 
1712 036322 ERRHRD ERRNO, T30IBU,PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
036322 104456 TRAP  CSERHRD 
036324 000366 .WORD 246 
036326 036610 -WORD T3OIBU 
036330 012126 “WORD PKTSSR 
| —- 1713 036332 160$:  CKLOOP ;LOOP IF SELECTED 
ae 036332 104406 TRAP —s- CSCLP1 
erie PPOREHEKABRLATEHEAHEAHMESSSHRESEASHEHRLESSAEAERERHHEHRARHHRH THES 
1716 ; 
171? ;GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 


° 
1719 FSCHHEAREREEOEDHEREEESEHEE SHEARER EHEHESEASEHEHHEACEERE SER AHRE 
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1720 
1721 0363534 


1773 
1777 036550 


013701 
010102 
02 


002214 


002214 
017262 


016536 
032310 


000017 


1708: 


CMP 
BLO 
JSR 


999%: 
;SUBTEST END 
3 
3 

BCC 


EXIT 


388 


4008: 


T3OBFR+14,R1 


FATFLG 
ERRNO, TSORIB , EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
400$ 


T3OLO0P 
TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
.*<,¢10>€177770 


3 ~ 
TSOPACKET 


TSODATA: 


TSOETM: . 
T3O0OSW: . 
ss -BLKW 


SWRITE SUBSYSTEM MEMORY COMMAND PACKET 


100004 
TSODATA 
.¢) 

10. 


-*<,¢10>€177770 


T30PK2: 


100006 
T308F 2 


SEQ 0136 | 
| 
PICK UP XST3 
SET UP EXPECTED 
sSET RIB BIT IN EXPECTED 
;D0ES EXP = REC'D 
iBR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT RIB 
TRAP —- CSERHRD 
.WORD 247 
“WORD  T3ORIB 
.WORD  EXPREC 


3LOOP IF SELECTED 
TRAP CSCLP1 
3<<<<00CCC"* END SUBTEST >>>>>>>>>>>d 
L10047: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
sB8R, IF LESS THAN 25 
sTRY TO ORCP THE UNIT 
300 WE NEED TO ITERATE TEST 
:BR, IF yo — REQUIRED 
sEXECUTE AGA 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10043-. 


sCOMMAND PACKET FOR TEST 
{WRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sSKIP TAPE MARK CONTROL 
SSELECT ORIVE 0 

sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 


sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 





i i 





TEST 1 


1626 037712 
1627 037771 
18628 040036 
1629 040113 
1630 040170 
1831 040237 


1632 040312 
1833 040371 
1834 040444 


100205 
003116 
000000 
000000 


010 


un 


BRERRRERRRERE 


124 
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. WORD 100205 
TS3ORB: 
T30OWB: .WORD “wer 
T30SZ . WORD 0 
.EVEN 
3 
; 
3 
T30BF 2: 
T30BSO0O: .BYTE 10 
T30BS1: .BYTE 200 
T30S2: 0 
T30S3: WORD 0O 


-EVEN 
3; TAPE MOTION PACKET COMMAND VALUES 


TSOIMV: 
T3ORN: 
-WORD 000000 
-WORD 000100 
-WORD 000200 
. WORD 300 
-WORD 177777 
3 
TSOCNT: .VORD 0 
TSOCNU: .WORD 0 
T3SOFCN: .WORD 0 
T3SOOLY: .WORD 0 
s¢ 


t- 
ASCIZ '‘T 


SEQ 0137 


sREREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


;B8SELO AREA 
;B8SEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


sNEITHER EWB NOR ESS 
sEWB SET 

sESS SET 

3;B60TH EWS —_ ESS SET 
;END OF DAT 


s; TAPE TIMER COUNTER STORAGE AREA 


NUMBER COUNTER 
sDELAY COUNTER STORAGE 


Incorrect er SKIP TAPE MARK REVERSE Into BOT’ 

ASCIZ ‘RIB Bit CxST3) rei led To Set After Reverse Into BOT’ 
Incorrect After SKIP TAPE MARK REVERSE At BOT’ 
MARK Command’ 


t Record After READ REVERSE’ 


Correct After Illegel Mode Bit 


; SSR 

T3OIBT: .ASCIZ ‘TSSR 

T3OSKM: .ASCIZ ‘TSSR Incorrect ~ SKIP TAPE 

T3OWDD: :ASCIZ ‘TSSR Not Correct After WRITE DATA Commend’ 

T30PTB: “ASCIZ ‘Tape Not Positioned On 

T3OROF: “ASCIZ ‘TSSR Incorrect After READ F 

TSORDG: |ASCIZ ‘TSSR Incorrect After SPACE Command Into TARE MARK: 
T3OWOF: .ASCIZ ‘TSSR 


Net se Set’ 
ASCIZ Bot go Mode Bits, Feiled To Sot ILc git In XSTO' 
-ASCIZ SCELLANEOUS Command 


T3OLO@: 

T3OSSR: t Accept 

TSOWDE: . ‘TSSR Not Correct After SKIP TAPE MARKS , at BOT’ 
T30B0T: .ASCIZ ‘Tepe Not At BOT After REWIND 

T3OTM: .ASCIZ ‘TSSR Not Correct After SPACE F ‘ 
T3OTM2: .ASCIZ ‘TSSR No 

TSORWN: .ASCIZ ‘Rewind (POSIT 


T3OVCK: .ASCIZ "CVC Set, Didn''t Rese 
‘TMK Not Set After oRITE TAPE MARK 


TSOTMK:; .ASCIZ 


vcK gh Buffer’ 
(RETRY) Command’ 








TEST 1 - HARDWARE TEST -~ TEST MACRO M1113 14-JUN-84 16:41 SEQ 0138 


TEST 2: SKIP TAPE 


1835 040526 123 113 111 TSONEF: .ASCIZ ‘SKIP TAPE MARKS, At SOT, Feiled To Set NEF Bit’ 

040605 124 115 113 T3ORRM: .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
1837 0406635 124 115 113 TS3ORRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
1838 040742 124 115 113 TSORRP: .ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
1839 041020 116 117 040 TSODTR: .ASCIZ ‘NO Dete Transferred On READ FORWARD’ 
1840 041 104 141 164 TSOOTA: .ASCIZ ‘Dete Compere Error, Date Read From Tape Not Equal To Written’ 
1841 041161 123 153 151 TST3OID: -ASCIZ ‘Skip Tape Marks’ 
1842 -EVEN 
ies : 

; 
1845 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
1846 ;WRITE SUBSYSTEM MEMORY COMMAND 
1847 ; 
1848 3° 
1849 
1850 041202 T3OREST: 
1851 041202 SAVREG sSAVE THE REGISTERS 
1852 041206 012701 036430 MOV @TSOPACKET ,R1 sSTART OF THE 
18653 041212 012721 100004 MOV #100004 (Rie aes ee on MEM. H ACK, 
1654 041216 012721 036440 MOV @TSODATA,(R1)>+ S OF SHARAISTICS DATA BLOCK 
1855 04 1 CLR CR1)+ + EATENDED ADORESS 
1656 041224 012721 000012 MOV #10. ,CR1)-+ sSIZE OF DATA BLOCK IN BYTES 
1857 041230 012721 036452 MOV OTSOBFR,CR1)> sADDRESS OF MESSAGE BUFFER 
1658 041234 1 CLR (R1)- 
1859 041236 012721 000024 MOV @20) .CRL)+ sLENGTH OF MESSAGE BUFFER 
1860 041242 1 CLR (R1)-+ 
1661 041244 012711 MOV #0,(R1) sSELECT ORIVE ZERO 
1 041250 012702 30 MOV 024. »R2 sNUMBER OF LOCATIONS TO . ations 
1863 041254 012762 177777 036452 64%: MOV €177777, T30BFR(R2) FALL ONES TO MESSAGE BUFFE 
1864 041262 005742 TST -(R2) sNEXT LOCATION 
1865 04 022702 000000 CMP 60. ,R2 sCHECK R2 FOR DONE 
1866 041270 001371 BNE 64$ sKEEP GOING UNTIL DONE 
pore 041272 7 RTS PC sRETURN 
1869 041274 T3ORT2: 
1870 041274 SAVREG sSAVE THE REGISTERS 
1871 041300 012701 036540 MOV @TSOPK2,R1 sSTART OF THE PACKET 
1872 041 012721 MOV #100006 ,(R1)-+ sWRITE svesvsven MEM. WITH ACK, 
1873 041310 012721 036560 MOV @T30BF2,(R1)+ sADORESS OF DATA BLOCK 
1874 041314 CLR (R1)« JEXTENDED ADORESS 
18675 041316 012721 000006 MOV #6. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
1876 041 CLR (R1)> 
1877 041324 012701 036560 MOV @T30BF2,R1 sPOINT TO DATA SEL AREA 
1878 041330 005021 CIR (R1)+ 
1879 041332 005011 CLR (R1) 
1 041334 000207 RTS PC . ;RETURN 
18681 041336 T3ORTS: 
18862 041336 SAVREG sSAVE REGISTERS 
1883 041342 012701 036550 MOV @T30PK3,R1 3SET UP POINTER ADDRESS 
1 041 005021 CLR (R1)-+ ;COMMAND SP 
1885 041350 005021 CLR (R1)-+ sADORESS OF DATA BLOCK 
1686 041352 005021 CLR (R1)-+ sEXTENDED ADORESS 
7 041354 005011 CLR (R1) ;SIZE OF DATA TRANSFER BLOCK 

1888 041356 000207 RTS PC ;RETURN 
1889 041360 ENOTST 

041360 L20043; 

041360 104401 TRAP CSsETST 





; 0 
041452 013727 002116 MOV LSOLY,(PC)+ 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-64 16:41 SEG 0139 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
1890 .SBTTL TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
o ‘ 
j | 
1893 :THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND INITIALIZE 
1894 ;COMMAND (SPACE REVERSE, ERASE, WRITE DATA) } 
1895 3 
1896 F 
1897 ;THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
1898 3 
j 1899 é 
| 1900 3 
1901 s- 
1902 041362 BGNTST 
041362 T3:: | 
1903 041362 012737 006354 002172 MOV GEPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
1908 041370 012700 046473 MOV @TST31ID,RO sASCII MESSAGE TO IDENTIFY TEST 
1909 041374 004737 016570 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
1910 041400 012737 000005 002210 MOV #5 ,LOOPCNT sPERFORM 5S ITERATIONS 
tay 041406 005037 043266 CLR T31CNT ;CLEAR TAPE RECORD COUNTER 
191 3 
1913 3° 
1914 
1915 041412 T31L00P: 
1916 3¢ 
1917 3 
3444 ;TEST 3, SUBTEST 1 
; 
1920 3 VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
1921 3 OMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
1922 3 STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 
1923 3 INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST RE 
1924 3 WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
1925 ; AND THE -OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
| 1926 : IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
1927 ; RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
1928 F VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 
ooo 8 ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 
; 
1931 3 
1932 3 
1933 3 
1934 ; 
1935 ; 
| 1936 g- 
1937 041412 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
| 041412 T3.1: 
041412 104402 TRAP C$BSUB 
1938 041414 004737 046540 JSR PC, T3LREST :SET COMMAND PACKET 
1939 041420 004737 046632 JSR PC, T31RT2] sSET UP OTHER COMMAND PACKET 
j 1940 041424 004737 046674 JSR PC, T31RT3 3SET UP OTHER COMMAND PACKET 
1941 041430 012737 176750 043272 MOV 065000. , T31i0LY ;SET UP DELAY COUNTER 
1942 041436 004737 016054 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
| 1943 041442 103426 BCS 20% 3;8R IF INIT WAS OK 
1944 041444 DELAY 250 ;DELAY ABOUT .25 SEC 
041444 012727 000250 MOV @250,(PC)+ 
041450 000000 WORD 
| 





K11 


TEST 1 - HARDWARE TEST +. oe TEST MACRO M1113 14-JUN-84 16:41 


TEST 3: NO-OP ("CL 


g 
~~ 
uw 
rw 
a 


C——— 


EAN T 


012737 


") AND INITIALIZE 


177772 
177756 
043272 
002214 


010742 
002214 


011074 


002214 


043140 20%: 


23%: 


30$: 


40%: 


043242 
043240 65%: 


RO, 
ERRNO, SFIERR , SF IMSG 


UNITN, T310SW 

@TSIPACKET ,R4 
»WRTCHR 

23% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 
30$ 


RO,R4 
FATFLG 
ERRNO, TS1RWN,PKTSSR 


T31BFR+6,R1 
R1,R2 
#61T1,R2 
R1,R2 


FATFLG 
ERRNO, T31B0T ,EXPREC 


FREE , T31W8 
#140005 , T31PK3 
@T31PK3,R4 
#100. ,RO 

PC, .FILLMEM 
#100. ,T31SZ 


sBUMP COUNTE 
;6R, IF COUNTER NOT DONE 
sERROR COUNT 


s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS “Ss 


. WORD 
;SET UP UNIT NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET 
TISSUE WRITE CHARACTERISTICS 
:BR, IF COMMAND cha OK 


sERROR 

s SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
- WORD 

sLOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
SET UP REWIND PACKET ADORESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 


sLOOP IF SELECTED 


aT UP XxSTO 
SET UP EXPECTED 
iSET BOT BIT IN Basen 


3 COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 


. WORD 
sLOOP IF SELECTED 


TRAP 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
SET UP R4 WITH PACKET 


ADORESS 
sSET PATTERN IN CORRECT 


sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 


SEQ 0140 


QO 
-6(PC) 
-4 
-22(PC) 
-20 


CSERHRD 
302 


WRTMSG 
SFIMSG 


CsCLP1 


CSERHRD 
303 
T31RWN 
PKTSSR 
CsCLP1 


CSERHRD 
304 
T3180T 
EXPREC 


CsCLP1 


REGISTER 





TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-64 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 
1990 041700 010465 MOV 
1991 041704 004737 016350 JSR 
1992 041710 016501 000002 MOV 
1993 041714 012792 000200 MOV 
1994 041720 020102 CMP 
1995 041722 001406 BEQ 
1996 041724 005237 002214 INC 
2000 041730 ERRHRD 
041730 104456 
041732 000461 
041734 045160 
041736 012126 
2001 041740 80$: CKLOOP 
041740 1 
2002 041742 004737 011074 JSR 
2003 041746 103407 BCS 
2004 041750 010001 MOV 
2005 041752 37 002214 INC 
2009 041756 ERRHRD 
041756 104456 
041760 000462 
041762 044624 
041764 015554 
2010 partis 230%: CKLOOP 
2011 041770 013701 043150 MOV 
12 041774 010102 MOV 
2013 041776 052702 000002 BIS 
2014 042002 020102 CMP 
2015 042004 001406 BEQ 
2016 042006 005237 002214 INC 
042012 ERRHRD 
042012 104456 
042014 000463 
042016 275 
042020 015554 
2021 042022 240%: CKLOOP 
042022 1 
2022 042024 012737 041012 043240 265%: MOV 
2023 042032 012704 043240 MOV 
0420 010337 043246 MOV 
2025 042042 01046 MOV 
042046 004737 016330 JSR 
2027 042052 016501 000002 MOV 
042056 012702 000200 MOV 
2029 042062 020102 CMP 
2030 042064 001406 BEQ 
2031 042066 005237 002214 INC 
2035 042072 ERRHRD 
042072 104456 
042074 
042076 043473 
042100 012126 
2036 042102 280%: CKLOOP 
042102 
2037 042104 013701 043150 MOV 
2038 042110 010102 MOV 


16:41 


R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 

@SSR,Re 

R1,R2 

80% 

FATFLG 

ERRNO, T3iWOC ,PKTSSR 


PC ,REWIND 

230% 

RO ° Ri 

FATFLG 

ERRNO, T31RWN, EXPREC 


T31BFR+6,Ri 
Ri 


FATFLG 
ERRNO, T31B80T ,EXPREC 


#041012, T31PK3 
OT31PK3.R4 


TSSRCRS),R1 

@SSR ,R2 

R1,R2 

280% 

FATFLG 

ERRNO, TSLRDF , PKTSSR 


T31BFR+6,R1 
R1i,R2 


SEQ 0141 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
;ARE THEY EQUAL 
sBR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
-WORD 305 
-WORD T31WDC 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPi1 
sCALL ~— ~~ A COMMAND 
SAVE TSR 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHROD 
-WORD 306 
.WORD T31RWN 
-WORD EXPREC 
;LO0P IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
3SET UP EXPECTED 
3SET BOT BIT IN EXPECTED 
;D00ES EXP = REC'D 
38R, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP ©$ERHRD 
-WORD 307 
-WORD 13180T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP CsCLP1 
3NO-OP ,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SI7E IN PACKET 
OMMAND 


sISSUE C 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 
HEY EQUAL 


sARE Ti 
;BR, IF 
sERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 308 
. WORD T31ROF 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CS$CLP1 


sPICK UP XSTO 
sSET UP EXPECTED 





- HARDUARE TEST bless A MACRO M1113 14-JUN-84 


("CLEAN 


") AND INITIALIZE 


000002 


002214 


140670 
000144 


002214 


002214 
017262 


043240 
043246 


000017 


285$: 


330$: 


999%: 


3? 


Mil 
16:41 
@BIT1,R2 
R1,R2 
285% 


FATFLG 
ERRNO. T31B80T ,EXPREC 


#140001, T31PK3 
@T31PK3,R4 


TSSR(RS),R1 
@SSR ,R2 
R1,R2 

290% 


FATFLG 
ERRNO, T31RDE ,PKTSSR 


@FREE ,R1 
#100. ,R2 
R1,R2 
330% 


FATFLG 
ERRNO, T31WNG ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
sTEST 3, SUBTEST 2 


;SET BOT BIT IN EXPECTED 


sD0ES EXP = REC'D 
;BR, IF EQUAL (OK) 


sERROR COUNT 
s;TAPE NOT AT BUT AFTER REWIND 


;LOOP IF SELECTED 
sREAD,ACK,CvC=1 C 


OMMAND 
sSET UP R4 WITH PACKET ADORE 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 

;BR, IF OK 


sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA. 


;LOOP IF SELECTED 


;GET DATA READ 
sREAD EXPECTED 


TRAP 


TRAP 


E 
;0ID TAPE STAY POSITIONED 


;BR, IF EXPO = RECD 


sERROR COUNT 
;TAPE DATA NOT CORRECT 


. WORD 
. WORD 
. WORD 


ss 


SEQ 0142 


CSERHRD 
309 


T3180T 
EXPREC 


CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10051: 


” TRAP 


sIS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 


ALREADY HAVE BEEN DETECTED IN PREV.OUS TESTS). 


SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1 


THE TEST 


CsESUB 





Nil 


TEST 1 - HARDWARE TEST > p TEST MACRO M1113 14-JUN-84 16:41 


TEST 3: NO-OP ("CLEAN T 


2089 


04 
2133 042452 
04 


2134 042454 
2135 042462 
2136 042470 


APE") AND INITIALIZE 


: 


013737 002174 043140 20%: 


004737 010742 
005237 002214 


04406 
004737 011074 


005237 002214 


104406 
013737 003116 043242 
140005 043240 65%: 


23%: 


30$: 


40%: 


PC, T31LREST 
PC, T31RT2 
PC, T31RT3S 
— 
FATFLG 


RO,R1 
ERRNO, SFIERR , SF IMSG 


UNITN, T310SW 
@TSIPACKET, »R4 


RO, 
ERRNO, WRTMSG, SF IMSG 


PC ,REWIND 
30% 


RO,R4 
FATFLG 
ERRNO, TS1RWN,PKTSSR 


T31BFR+6,R1 
R1,R2 


1, 
@81T1,R2 
R1,R2 
40% 


FATFLG 
ERRNO, T31B0T , EXPREC 


FREE , T31W8 
#140005, T3iPK3 
OT31PK3,R4 


SEQ 0143 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
73.2: 


TRAP CsBSUB 
sSET COMMAND PACKET 
;SET UP | Ete COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
s00 INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 


CSERDF 
-WORD 312 
-WORD SFIERR 

SF IMSG 


;SET UP UNIT NUMBER IN PACKET 
sSUBRGUTINE NEEDS PACKET ADORESS 
S ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 

sERROR COUNT 
sSAVE CONTENTS OF TSSR 
s;WRITE CHARACTERISTISC ay 


CSERHRD 
-WORD 313 
-WORD WRTMSG 
-WORD SFIMSG 


;LOOP IF SELECTED 
TRAP CsCLP1 


;CALL TAPE REWIND COMMAND 
;B8R, IF NO PROBLEM 
3SET UP REWIND ae ADDRESS 


sERROR C 
sREWINOD NOT ACCEPTED 
TRAP CSERHRD 
. WORD 


314 
WORD T3i1RWN 
WORD PKTSSR 


sLOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

BR. IF EQUAL (OK) 


sERROR COUNT 
;TAPE NOT AT BOT AFTER — 


TRAP CsCLP1 


CSERHRD 
-WORD 315 
«WORD T13180T 
-WORD EXPREC 
;sLOOP IF SELECTED 
CsCLP1 


TRAP 
s;STARTING WRITE BUFFER ADDRESS 
s;WRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


a a + ee se ——— pi ee es - es - — ae - — 


B12 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 14-JUN-84 16:41 SEQ 0144 
TEST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 
2137 042474 012700 000144 MOV #100. ,RO sSET PATTERN IN CORRECT REGISTER 
2138 042500 004737 017502 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
139 042504 012737 000144 045246 MOV #100. , 73152 sSET UP RECORD SIZE IN PACKET 
2140 042512 010465 MOV R4, TSOBCRS ) s ISSUE COMMAND 
2141 042516 004737 01635350 JSR PC ,WAITF sWAIT FOR SSR TO SET 
2142 042522 016501 000002 MOV TSSA(RS),R1 sGET TSSR CONTENTS 
2143 042526 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
2144 042532 020102 Cup R1,R2 sARE THEY EQUAL 
2145 042534 001406 BEO 80% sBR, IF OK 
2146 042536 005237 002214 INC FATFLG C 
2150 042542 ERRHRD ERRNO, T31WOC,.PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
042542 104456 TRAP CSERHRO 
042544 000474 -WORD 316 
042546 045160 -WORD TS31iWOC 
042550 012126 -WORD PKTSSR 
2151 042552 603: CKLOOP sLOOP IF SELECTED 
042552 104406 Rap CsciP 1 
2152 042554 004737 011074 JSR — sCALL TAPE REWIND COMMAND 
2153 042560 103407 ecs 230 s6R, * NO PROBLEM 
042562 010001 MOV RO, + sSAVE T 
2155 0462564 005237 002214 INC FATFLG COUNT 
2159 042570 ERRHRD ERRNO, TSIRWN,EXPREC sREWIND NOT ACCEPTED 
042570 104456 TRAP CSERHROD 
042572 000475 -WORD 317 
042574 -WORD TSIRWN 
042576 015554 .WORD EXPREC 
2160 042600 230%: CKLOOP sLOOP IF SELECTED 
042600 104406 TRAP CsCcLP1 
2161 042602 013701 043150 MOV T3IBFR+6,R1 sPICK UP xXSTO 
042606 010102 MOV R1,R2 sSET UP EXPECTED 
2163 042610 052702 000002 BIS @BIT1,R2 3SET BOT BIT IN EXPECTED 
164 042614 020102 Cop R1,R2 ;DOES EXP c‘od 
2165 042616 001406 BEQ 240% sBR, IF EQUAL (OK) 
042620 005237 002214 INC FATFLG sERROR COUNT 
2170 042624 ERRHRD ERRNO, 1351607 ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
042624 104456 TRAE CSERHRO 
042626 000476 -WORD 318 
042630 0442 .WORD 1T3180T 
042632 015554 .WORD EXPREC 
2171 042634 240%: CKLOOP sLOOP IF SELECTED 
042634 104406 TRAP CSsCLPl 
2172 042636 012737 041012 043240 265%: MOV #041012, T31PK3 ~~ ho CvC=1 COMMAND ; 
173 042644 012 3240 MOV @T31PK3,R4 sSET UP R4 WITH PACKET ADORESS 
2174 042650 010337 043246 MOV R3,731SZ sSET UP RECORD SIZE IN PACKET 
2175 042654 010465 MOV R4, CRS) s ISSUE 
2176 042660 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 
2177 042664 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 
2178 042670 012702 000200 MOV SR ,R2 :SET UP EXPECTED ; 
2179 042674 020102 CMP R1,R2 sARE THEY EQUAL « 
21860 042676 001406 BEQ 260% sBR, IF OK 
2181 042700 005237 002214 INC FATFLG sERROR COUNT 
2185 042704 ERRHRD ERRNO, TSLRDF ,.PKTSSR sTSSR INCORRECT AFTER = DATA 
042704 104456 CSERHRD 
042706 000477 TNORD 319 
042710 043473 .WORD TS31ROF 
042712 012126 .WORD PKTSSR 
2186 042714 280%: CKLOOP sLOOP IF SELECTED 





TEST 1 - WAROWARE TEST 1.8. TEST MACRO M1113 14-JUN-84 16:41 SEQ 0145 


TEST 3: NO-OP ( APE”) AND INITIALIZE 


042714 104406 TRAP *CS8CLP1 
2187 042716 013701 043150 MOV T31IBFR+6,R1 sPICK UP XSTO 
2188 042722 010102 MOV »R2 sSET UP EXPECTED 
2189 042724 0527 000002 BIS B1IT1,R2 :SET BOT BIT IN EXPECTED 
2190 042730 020!02 CMP R1,R2 sD00ES EXP + REC'D 
2191 042732 001406 BEQ 265% sBR, IF EQUAL (OK) 
2177 042734 005237 002214 INC FATFLG sERROR COUNT 
2196 042740 ERRHRD ERRNO, T31B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
0427 104456 TRAP CSERHMRO 
042742 . WORD 320 
042744 344275 . WORD 731607 
0427 015554 . WORD EXPREC 
2197 042750 2853: CKLOOP 3LOOP IF SELECTED 
042 1 TRAP CSCLP1 
2198 042752 012737 140001 0435240 MOV #140001, T31PK3 ayy CvC=1 COMMAND 
2199 042760 Ol2 043240 MOV @T31PK3,R4 sSET UWP R4 WITH PACKET ADORESS 
042 012737 000144 043246 MOV #100. ,731SZ sSET UP RECORD SIZE IN FACKET 
2201 042772 010465 MOV R4, TSOBCRS) sISSUE COMMAND 
2202 042776 004737 0163550 JSR PC ,WAITF sWAIT FOR SSR TO SET 
2203 043002 016501 000002 MOV TSSRCRS).R1 sGET TSSR CONTENTS 
Os 012 000200 MOV @SSR ,R2 sSET UP EXPECTED 
2205 043012 020102 CMP R1,R2 sARE THEY EQUAL 
2206 043014 001406 BEQ 290% ;BR, OK 
2207 043016 005237 002214 INC FATFLG sERROR COUNT 
2211 043022 ERRHRD ERRMO, TSIRDE ,.PKTSSR :TSSR INCORRECT AFTER READ DATA 
043022 104456 TRAP CSERHRO 
043024 000501 -WORD 321 
043026 043274 . WORD T31RDE 
043030 012126 WORD PKTSSR 
2212 043032 2908: CKLOOP ;LOOP IF SELECTED 
043032 TRAP CSCLPi 
2213 043034 017701 140056 MOV @FREE ,R1 3GET DATA READ 
2214 043040 012702 000144 MOV #100., sREAD EXPECTED 
2215 043044 020102 CMP Ri, s0ID TAPE STAY POSITIONED 
2216 04 001406 BEQ 3 38R, IF EXPD = RECO 
2217 043050 005237 002214 INC FATFLG sERROR COUNT 
2221 043054 ERRHRD ERRNO, TS1WNH,EXPREC 3 TAPE POSITION NOT CORRECT AFTER INIT 
043054 104456 TRAP CSERHRD 
043056 . WORD 322 
043060 043340 “WORD T31WNH 
043062 015554 . WORD EXPREC 
2222 043064 330%: 
2223 043064 ENDSUBS 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
04 2068 L100Se2: 
04 3664 3 TRAP CsESUB 
2224 043066 023727 002214 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 
2225 043074 103402 BLO 999% 38R, IF LESS THAN 25 
2226 043076 004737 017262 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 
2227 043102 999%: 
3 
? 
2230 $ 
2231 043102 004737 016536 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
32 043106 103002 BCC 163% 368R, IF NO LOOP REQUIRED 
2233 043110 000137 041412 JMP T31L00° sEXECUTE AGAIN 
34 043114 163%: EXIT TST sALL DONE THIS TEST 
043114 104432 TRAP CSExIT 





Dle 


TEST 1 - HARDWARE TEST 1-6 TEST MACRO M1113 14-JUN-84 16:41 
TEST 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


5 043116 003600 


2e3 s¢ 
2236 ;LOCAL STORAGE FOR THIS TEST 
2237 3: 
2241 043120 T3LPACKET: 
2242 043120 100004 . WORD 100004 
2243 043122 043130 . WORD T3IDATA 
2244 043124 000000 -WORDB O 
2245 043126 000012 . WORD 10. 
2246 043150 T31DATA: 
2247 043130 043142 . WORD T31IBFR 
2248 043132 000000 -WORD O 
2249 043134 000024 -WORD 20 
2250 043136 000000 -WORD O 
2251 043140 000000 T310SW: .WORD 0 
ps 043142 TSIBFR: .BLKW 25. 
3 
ss sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
o 
2257 043230 #<,#10>€177770 
2259 043230 T31PKe: 
2260 043230 100006 . WORD 
2261 043232 043250 -WORD T3186F2 
2262 043234 000000 -WORD O 
2263 043236 000006 -WORD 6. 
2268 043240 T31PK3 
2269 043240 100005 . WORD 100005 
2270 043242 T31R6: 
2271 043242 003116 T31WB: .WORD FREE 
2272 043244 000000 -WORD O 
2273 043246 000000 T3182 -WORD O 
2274 EVEN 
2275 3 
2276 A 
2277 
2278 043250 T316F 2: 
2279 043250 010 T318SO: .BYTE 10 
22860 043251 200 T318S1: .BYTE 200 
2281 043252 000000 T31S2: 0 
043254 000000 T3183: WORD 0 
2283 2 
2264 3 
2285 
a 3 TAPE MOTION PACKET COMMAND VALUES 
2288 043256 100205 T3iRN: .WORD 100205 
2289 043260 100605 T3iWOR: . 100605 
2290 043262 102205 T31CON: .WORD 102205 
2291 043264 177777 WORD 177777 
2292 
2293 3 
2294 043266 000000 T3iCNT: .WORD 0 
2295 043270 000000 T3iCNU: .WORD 0 
at 043272 000000 T310LY: .WORD 0 
2298 sLOCAL TEXT MESSAGES FOR TEST 


SEQ 0146 


-WORD 110050-. 


sCOMMAND PACKET FOR TEST 

SWRITE CHARACTERISTICS COMMAND, WITH , ACK 
:ADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADORESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sDATA AREA 


yREREAD OATA (NEXT) 
sENO OF 


s TAPE TIMER COUNTER STORAGE AREA 
s TAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


nm i ca ee a 
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2309 044046 
2310 044127 
2311 poet 


2329 045770 


2330 046111 
2331 046166 
2332 73 


012701 


012711 
012702 


043120 
100004 
043130 


000012 
043142 


000024 


000000 
000030 


test 3: NO-OP ("CLEAN TAPE”) AND INITIALIZE 


T3IRDE: . 


oe Zz 
TST3110: 
- EVEN 


3¢ 


16:41 


ae ee i ee 


Ele 


SEQ 0147 


‘TSSR Not Correct After READ Commend 
‘Tape Position Incorrect After INITIALIZE Command’ 
‘Tepe Position Incorrect After Commend’ 
"TSSR Incorrect After READ DATA Commend’ 
Reverse, Read Forward) Command Failed’ 
(Spece Commend) Failed, TSSR Not Correct’ 

‘RIB wor SET AFTER READ REVERSE INTO BOT’ 
' TSSR Not Correct After Illegel Mode Bits Set’ 

llegel Mode Bits, nino To Set ILC Bit In XSTO' 

COMMAND Not Accep 

TSSR Not Correct After “R00 ("CLEAN TAPE”) AND INITIALIZE Command,At 80T' 
‘Tape Not At BOT After REWIND Commend (BOT Not Set In xSTO)’ 
'NO- OP ("CLEAN TAPE") AND INITIALIZE''S Erese Tape Not Long Enough’ 


‘TSSR Not Correct After REREAD COMMAND Re ject’ 

ae (POSITION) Command Not Accepted’ 
RAM Error, Correct Dete Pettern Not In Rem’ 

TSSR Init. Feiled After REREAD COMMAND’ 

‘Drive 7 Select Feiled To Set “OFL” In TSSR’ 

‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 

*TSSR Not Correct After REREAD DATA Commend’ 

‘CVC Set, Didn’''t Reset VCK In ee ae 

‘TSBA Not Correct After REREAD DATA ‘ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

‘Reading Long Record Feiled To Set RLL Bit In XSTO’ 


‘Reading Record Feiled To Set RLS Bit In XSTO’ 

‘Resi duel Byte Count mogrvess After | oy Record Read’ 

‘Reedi Record Feiled To Give Tape Stetus Alert’ 

'NO-OP a TAPE”) So INITIALIZE, at Firet Record, Failed To Set RIB Bit 


‘TSSR Not Correct After SPACE RECORDS Command’ 

*TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE, Into BOT’ 
‘TSSR Not Correct After NO-OP (“CLEAN TAPE”) AND INITIALIZE Command’ 
‘Dete Error, Dete Read From Tape Not Equal To Written’ 

-ASCIZ -OP ("Clean Tape”) And INITIALIZE’ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T31REST: 


sSAVE THE REGISTERS 
@TSIPACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T3IDATA,(R1)+ sADORESS OF CHARAISTICS DATA BLOCK 
(R1)+ SEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


#10. eCRL)+ 
+h alta sADORESS OF MESSAGE BUFFER 


20; 4 (R1)« LENGTH OF MESSAGE BUFFER 

o 

#0,(R1) ;SELECT DRIVE ZERO 

024, ,R2 NUMBER OF LOCATIONS TO BE CLEARED 
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—Fl2 


TEST 3: NO-OP 


(“CLEAN 


TAPE”) AND INITIALIZE 


SEQ 0148 
sALL_ONES TO MESSAGE BUFFER 


i 
sKEEP GOING UNTIL DONE 
;RETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 
+2u UP POINTER ADDRESS 


s COMMAND 

sADORESS OF DATA BLOCK 
sEXTENDED ADORESS 
sSIZE OF DATA TRANSFER BLOCK 
sRE TURN 


L10050: 
TRAP CsETST 


TEST 4: Erase And Operation Incomplete 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 


ACTUALL.Y ERASES TAPE. 


THE TAPE IS FIRST REWOUND, + tay Le ag RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGA 


COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 


one a IS VERIFIED AND STATUS IS CHECKED 


A READ REVERSE COMMAND IS a. 


IT IS VERIFIED THAT 


OMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 

SE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO 
THIS DEMONSTRATES THAT NO DATA 

IN THE AREA ERASED BY THE ERASE 


2356 046612 012762 177777 043142 64%: MOV 9177777, T31BFRC(R2) 
2357 046620 005742 TST -(R2) 
2358 046622 022702 000000 CMP 40 ,R2 
2359 046626 001371 BNE 643 
2360 046630 000207 RTS PC 
2361 
2362 046632 T3IRTe2: 
2363 046632 SAVREG 
2364 046636 012701 043230 MOV @T31PK2,R1 
2365 046642 012721 100006 MOV #100006 ,(R1)-> 
2366 046646 012721 043250 MOV @T31BF2,(R1)-+ 
2367 046652 1 CLR CR1)> 
2368 046654 012721 000006 MOV @6.,(R1)+ 
2369 046660 CLR CR1)-+ 
2370 046662 012701 043250 MOV @T318F2,R1 ~ 
2371 046666 005021 CLR CR1)> 
2372 046670 005011 CLR (R1) 
2373 046672 000207 RTS PC 
2374 046674 T31RT3: 
2375 046674 SAVREG 
2376 046700 012701 043240 MOV @T31PK3,R1 
2377 046704 005021 CLR (R1)-+ 
2378 046706 005021 CLR (R1)-+ 
2379 046710 005021 CLR CR1)- 
2380 046712 005011 CLR (R1) 
2381 046714 000207 RTS PC 

046716 ENOTST 

046716 

046716 104401 
2383 . SBTTL 
2384 3° 
2385 ; 
2386 5 
2387 3 POSITIONED AT BOT OPERATES PROPERLY AND 
coos 3 THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

é 
2390 3 
2391 Fy 1. 
2392 : 
2393 5 
2394 3 2. AN ERASE 
2395 3 OF THE TEST RECORDS. 
2396 3 
2397 PF 3. NORMAL 
2398 3 (BOT SHOULD BE 
2399 5 
2400 ; 4. 
2401 3 THE C 
2402 Fy REVER 
2403 $ DATA IS TRANSFERRED. 
2404 $ WAS ENCOUNT 
2405 3 s 
2406 ; 
2407 “= 
2408 3 
2409 ; 
° 
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TEST 4: ERASE AND OPERATION INCOMPLETE 

2411 3 

2412 3 

2413 ;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 

2414 3 

2415 3 

2416 3 

2417 i- 

2418 046720 BGNTST 
046720 T4:; 

2419 046720 012737 006354 002172 MOV GEPRT1, EPRTSW sPRIMARY ERROR MESSAGE 

2424 046726 012700 052570 MOV @TST32I0,RO sASCII MESSAGE TO IDENTIFY TEST 

2425 046732 004737 016570 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

2426 046736 012737 000005 002210 MOV @5,LOOPCNT sPERFORM S ITERATIONS 

——. 046744 37 051440 CLR T32CNT sCLEAR TAPE RECORD COUNTER 

242 3¢ 

2429 3 

2430 ;TEST 4, SUBTEST 1 

2431 

2432 

2433 | VERIFIES THAT A Erese And Opera vag emer e@ COMMAND ISSUED WHILE 

2434 sTHE TAPE IS POSITIONED AT BOT Causes FUNCTION | REJECT 

2435 rhe ante All mae THE NON-EXECUTABLE FUNCTION (NEF ) 

24 sERROR BIT SET 

2437 H 

2438 3 

2439 3° 

2440 

2441 046750 T32LO0P : 

e442 8 

2443 3 

2444 3° 

2445 046750 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
046750 74.1: 
O46 1 TRAP C$BSUB8 

2446 046752 004737 0526 JSR PC, TS2REST 3SET COMMAND P ET 

2447 046756 004737 052722 JSR PC, T32RT2 sSET UP OTHER COMMAND PACK’ T 

2448 046762 004737 0527 JSR PC, T32RT3 sSET UP OTHER COMMAND PACKET 

2449 046766 012737 176750 051444 MOV 5000. , TS20LY ;SET UP DELAY COUNTER 

2450 046774 004737 O1 10%: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

2451 047000 103426 BCS 20% 368R IF INIT WAS OK 

2452 047002 DELAY 250 sDELAY ABOUT .25 SEC 
047002 012727 000250 MOV @250,(PC)- 
047006 . WORD 0 
047010 013727 002116 MOV ‘erie (PC )+ 
047014 . WORD 
047016 005367 177772 DEC “64 PC) 

7022 001375 BNE 

047024 005367 177756 DEC “Ba PC) 
047030 001367 BNE .-20 

2453 047032 005337 051444 DEC T320LY 3BUMP COUNTER 

2454 047036 001356 BNE 10% ;8R, IF COUNTER NOT DONE 

2455 047040 37 002214 INC FATFLG sERROR COUNT 

2459 047044 010001 MOV RO,R1 s CONTENTS OF TSSR REGISTER 

2460 047046 ERRDOF ERRNO, SFIERR, SFIMSG tFATAL ERROR TSSR WAS NOT OK 
047046 104455 TRAP CSEROF 
047050 000621 . WORD 401 
047052 003646 . WORD SFIERR 





TEST 
Test 


2471 047114 
047114 
2472 047116 


2493 047224 


2506 266 
2510 047272 
047272 
047274 
047276 


012114 
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002174 051300 20%: 
051260 


010742 
002214 


25%: 


011074 


000002 
002214 


051402 
140005 051400 


283: 


001002 
011074 
000002 
002214 


278: 


H12_ 
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BCS 
MOV 
MOV 
INC 


UNITN, T320SW 
@TS2PACKET ,R4 
PC ,WRTCHR 

25% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SFIMSG 


PC ,REWIND 

26% 

RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, TS2RWN,PKTSSR 


FATFLG 


T3sn¢ R5),R1 
RO,R 
FA FUG 


ERRHRD ERRNO, TS2RWN,PKTSSR 


SEQ 0150 
. WORD SF IMSG 
sSET UP ORIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
s6R, IF COMMAND ISSUED OK 
sERROR COUN 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 402 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CSCLP1 
sCALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 
sSET UP REWIND PACKET ADDRESS 
sGET TSSR CONTENTS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 403 
-WORD T32RWN 
.WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADORESS 
sWRITE yg ag COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTE 
sARE THEY EQUAL 
sBR, IF OK 
sERROR COUNT 
3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSE 
-WORD 404 
.WORD T32WOC 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sBUMP RECORD COUNTER 
3AT MAX SIZE YET 
38R, IF NOT AT END OF LOOP 
sCALL TAPE 
;GET TSSR CONTENTS 
3SET UP REWIND PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 405 
.WORD T32RWN 


TEST 1 


TEST 4: ERASE 


- HARDWARE TEST 


051310 
000002 


002214 


003116 


051400 


308: 


40$: 


55%: 


Il 


1-8 TEST MACRO M1115 14-JUN-84 16:41 
AND OPERATION INCOMPLETE 


CKLOOP 

MOV T32BFR+6,R1 

MOV R1,R2 

BIS oBIT1,R2 
Ri, 

BEQ 40% 


INC FATFLG 
ERRNO, TS2B0E , EXPREC 


MOV #140411, T32PK3 
MOV @T32PK3 ,R4 
MOV R4, TSDBCRS) 


JSR PC,WA 

MOV TSSRC R5) RI 

MOV @SSR,R2 

CMP R1,R2 

BEQ 50$ 

INC FATFL 

ERRHRD ERRNO. T32ERA,PKTSSR 
CKLOOP 


MOV T32BFR+6,R1 
R1,R2 


MOV 
BIC @B1T1,R2 
CMP R1,R2 


55$ 
INC FATFLG 
ERRNO , TS2B0E , EXPREC 


MOV TSSR(RS), Ri 
MOV @SSR!SC!BIT2,R2 
R1.R2 


BEQ 160% 
NC FATFLG 
ERRHRD ERRNO, T32TSA,PKTSSR 


SEQ 0151 


PKTSSR 
TRAP CsCLP1 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

BR, IF EQUAL (OK) 


sERROR COUNT 
;TAPE AT BOT AFTER ERASE 


TRAP CsERHRD 

-WORD 406 

-WORD ‘32B0E 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


sERASE TAPE,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADORESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 


sSET UP EXPECTED 
s ARE a 


sERROR COUNT 
s;TSSR INCORRECT AFTER vag ™ DATA 


CSERHRD 

“ 407 
‘ T32ERA 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLPl 

sPICK UP XSTO 

sSET UP EXPECTED 

3SET 2 sft! IN EXPECTED 

sD0ES = REC'D 

;BR, IF XEQUA. (OK) 

sERROR COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHROD 
. WORD 408 
.WORD T32B0E 
.WORD EXPREC 


sLOOP IF SELECTED 
sADDRESS OF BUFFER 


TRAP C$CiP1 


sSET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3;GET TSSR CONTENTS 

3;SET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 

sBR, IF OK 


sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
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TEST 4: ERASE AND OPERATION INCOMPLETE 
047526 104456 TRAP CSERHRD 
047530 000631 -WORD 409 
047532 052241 -WORD T32TSA 
047534 012126 -WORD PKTSSR 
2563 047536 180$: CKLOOP ;LOOP IF SELECTED 
047536 104406 TRAP CSCLP1 
2564 047540 013701 051316 MOV T32BFR+14,R1 sGET XST3 STATUS WORD 
2565 047544 010102 MOV R1,R2 ;SET UP EXPECTED 
2566 047546 052702 000001 BIS BITO,R2 ;SET THE RIB BIT 
2567 047552 020102 R1,R2 ;ARE THEY EQUAL 
2568 047554 001406 BEQ 190$ ;BR, IF EQUAL (GOOD) 
2569 047556 005237 002214 INC FATFLG sERROR COUNT 
2573 047562 ERRHRD ERRNO. T32RIB , EXPREC ;RIB SHOULD BE SET 
047562 104456 TRAP CSERHRD 
047564 000632 . WORD 410 
047566 . WORD T32RIB8 
047570 015554 -WORD EXPREC 
2574 047572 190$: 
2575 047572 ENDSUB 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>> 
047572 L10054: 
047572 104403 TRAP CsESuUB 
2576 047574 023727 002214 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
2577 047602 103402 BLO 999% ;BR, IF LESS THAN 25 
2578 047604 004737 017262 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2579 047610 999%: 
2580 3¢ 
2581 H 
cae ;TEST 4, SUBTEST 2 
2584 3 VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
2585 3 POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
oo H PREVIOUS TAPE RECOROS. THE TEST SEQUENCE IS: 
; 
2588 3 1. THE TAPE IS FIRST REWOUND, SEVERAL — RECORDS ARE 
2589 3 WRITTEN, AND THE TAPE IS REWOUND AGAI 
2590 5 
2591 
2592 3 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
2593 : TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
coos 3 RECORDS 
: 
2596 F 3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
24 8 OF THE TEST RECORDS. 
Hl 
2599 8 NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 
2600 > 
2601 3 A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2602 3 NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
2603 3 a Aga CORRESPONDS TO THAT FOR THE EXPECTED 
2604 $ RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
2605 3 IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
—— ’ PREVIOUS RECORD WAS NOT CORRUPTED. 
2608 5 
2609 ; 
2610 ; 
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EST 1 
TEST 4: ERASE AND OPERATION INC 


2620 047634 37 002214 
2624 047: 010001 
2625 047642 


2626 047652 013737 002174 

051260 
004737 010742 
2630 047672 005237 002214 


2637 047712 004737 011074 


2640 047722 005237 002214 


051300 20%: 


23%: 


30$: 


40$: 


K12 
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PC, T32REST 
PC, T32RT2 
PC, T32RTS 
PC, SOF INIT 


RO,R1 
ERRNO, SFIERR , SFIMSG 


UNITN, T320SW 
@T32PACKET ,R4 
= Te TCHR 

23% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


RO, 
FATFLG 
ERRNO, TS2RWN,PKTSSR 


T32BFR+6,R1 
R1,R2 
#61T1,R2 
R1,R2 

40% 


FATFLG 
ERRNO. T32B0T , EXPREC 


#100 *e R3 
R3,RO 
PC, FILLMEM 


SEQ 0153 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>»> 
14.2: 


TRAP 
sSET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
s00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


. WORD 
sSET UP UNIT ay - PACKET 


C$BSU8 


sSUBROUTINE NEEDS PACKET ADORE SS 


S ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sERROR = 
emit CONTENTS OF T 
WRITE CHARACTERISTISC = 


- WORD 
sLOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 
38R, IF NO PROBLEM 
sSET UP REWIND PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 
.WORD 
- WORD 
. WORD 
TRAP 


sLOOP IF SELECTED 
sPICK UP XSTO 
sSET 


UP EXPECTED 
iSET B07 BIT =. team 


3 COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 


. WORD 
. WORD 
TRAP 


;LOOP IF SELECTED 


sSTARTING RECORD SIZE 
sSET UP MEMORY FILL 
sCALL MEMORY FILLER 


CsCLP1 





ee, ee eee 


Lie 
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013737 003116 051402 
2661 050014 012737 140005 051400 65%: 
050022 012704 051400 
2663 050026 010300 
2664 050030 004737 017502 
2665 050034 010337 051406 
2666 050040 010465 000000 
2667 050044 004737 0163550 
050050 016501 000002 
2669 050054 012702 000200 
70 050060 020102 
2671 050062 001406 
050064 005237 002214 
2676 050070 
050070 104456 
050072 000637 
050074 
050076 012126 
2677 050100 80% 
0501 1 
2676 050102 005723 
2679 050104 020327 000156 
2680 050110 001341 
2681 050112 004737 011074 
2682 050116 103407 
050 010001 
2684 050122 005237 002214 
2688 050126 
050126 104456 
050130 
050132 051650 
0501 015554 
2089 050136 2308: 
0501 
2590 050140 013701 051310 
2691 050144 010102 
2692 050146 0527 000002 
2693 050152 020102 
2694 050154 001406 
2695 050156 005237 002214 
2699 050162 
050162 104456 
050164 000641 
050166 051446 
050170 015554 
2700 050172 2408: 
050172 1 
2701 050174 012703 1 
050200 004737 010544 
2703 050204 012737 140411 051400 265%: 
2704 050212 012704 051400 
2705 050216 010465 
050222 004737 016330 
2707 050226 016501 000002 
2708 050232 012702 000200 
2709 050236 020102 
2710 050240 001406 


MOV FREE , T32W6 
MOV #140005, a 
MOV @T32PK3,R 

MOV R3,RO 

JSR PC, FILLMEM 
MOV R3,T32SZ 

MOV R4, —— 
JSR 

MOV TSSRCRS), Ri 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 80$ 

INC FATFLG 

ERRHRD ERRNO, TS2WOC ,PKTSSR 
CKLOOP 

TST C(R3)+ 

CMP R3,@110. 

BNE 65% 

JSR PC ,REWIND 

BCS 230% 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, TS2RWN, EXPREC 
CKLOOP 

MOV T32BFR+6,R1 
MOV R1,R2 

BIS #6IT1,R2 

CMP 1,R2 

BEQ 240% 

INC FATFLG 

ERRHRD ERRNO, TS2B0T ,EXPREC 
CKLOOP 

MOV #1,R3 

JSR PC, SPACE 

MOV #140411, T32PK3 
MOV @T32PKS,R4 

MOV R4, TSDBCRS) 
JSR PC ,WAITF 

MOV TSSR(RS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 280% 


ma ee ee +e > ee 


SEQ 0154 


sSTARTING WRITE BUFFER ADDRESS 
sWRITE ee ate Bi ACK COMMAND 
sSET UP R4 WITH PACKET ADORESS 
iSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

SET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 415 
.WORD T32WOC 
.WORD PKTSSR 
;LOO0P IF SELECTED 
TRAP CSCLP1 
sBUMP RECORD SIZE COUNTER 
SAT 160 SIZE YET 
3B8R, IF MORE RECORDS TO WRITE 
sCALL TAPE REWIND COMMAND 
sBR, IF RO EN 
sSAVE TSSR 
3 OUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 416 
.WORD T32RWN 
-WORD EXPREC 
3LOOP IF SELECTED 
TRAP CS$CLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
ISET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
3B8R, IF EQUAL (OK) 
sERROR COUNT 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
.WORD 417 
.WORD T32B0T 
.WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLPl 


sSET UP FOR SPACE COMMAND 
sISSUE SPACE COMMAND 1 FORWARD 
sERASE DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADORESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 





TEST 1 
Test 4 


2711 
2715 
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: ERASE 
050242 
050246 
050246 
050250 


AND OPERATION INCOMPLETE 


002214 


003116 
140401 
000144 
051400 
000000 
016330 
000002 


000200 


002214 


132542 
000144 


002214 


002214 
017262 


051402 
051400 
051406 


000017 


INC FATFLG 


ERRHRD ERRNO, T32ERA,PKTSSR 
2803: CKLOOP 

MOV FREE , T32R8 

MOV 140401 , T32PK3 

MOV #100. , T32SZ 

MOV @T32PK3 ,R4 

MOV R4, TSDOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),.R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, T3S2TSA,PKTSSR 
290%: CKLOOP 

MOV @FREE ,R1 

MOV #100. ,R2 

CMP R1,R2 

BEQ 300% 

INC FATFLG 

ERRHRD ERRNO, TS2ECF ,EXPREC 
3008: CKLOOP 
330$: 

ENODSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
999%: 


3+ 
; 
sTEST 4, SUBTEST 3 


VERIFIES THAT AN ERASE COMMAND 
EXECUTED BEYOND THE 


INCOMPLETE STATUS. 


EOT MARKER, 
TERMINATION WITH THE EOT STATUS BIT SET. 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 

THE FQLLOWING TEST SEQUENCE IS EXECUTED: 


SEQ 0155 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 
-WORD 418 
-WORD T32ERA 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sADORESS OF BUFFER 


$ REC 

sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 


;SET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 


;6R, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 419 
. WORD T32TSA 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;GET DATA REAC 
sSHOULD BE 100 
;CHECK'EM OUT 
;BR, IF OK 
;ERROR COUNT 
s;ERASE COMMAND DIDN'T WORK 
TRAP CSERHRD 
-WORD 420 
. WORD T32ECF 
.WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10055: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


ENCOUNTERING THE EOT MARKER, OR 
CAUSES TAPE STATUS ALERT 
ALSO VERIFIES THAT THE 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0156 
TEST 4: ERASE AND OPERATION INCOMPLETE 

2760 ; 1. THE TAPE IS REWOUND. 

2761 ; 

2762 F 2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 

2763 PF IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 

2764 3 THAN NORMAL (WITH EQT=0) OR TAPE STATUS ALERT (WITH 

2765 3 2 blag = ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 

2766 : DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 

2767 : THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 

2768 : ABORTED. 

2769 : 

2770 F 3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 

2771 3 VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 

ovte F WITH EOT=1. 

277 H 

2774 ; 4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 

2775 3 CISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 

2776 ; ERROR TERMINATION WITH OPI*1: SPACE RECORDS REVERSE 

2777 F SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 

2778 8 COPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1) 

2779 3 REREAD NEXT (OPP=0) READ NEXT SKIP TAPE MARKS REVERSE 

2780 F SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 

2781 3 DATA RETRY 

2782 3 

2783 ; 

2784 3 

2785 3 

2786 3° 

2787 050420 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
050420 74.3: 
050420 104402 TRAP C$6SU8 

2788 050422 004737 052630 JSR PC, T32REST ;SET COMMAND PACKET 

2789 050426 004737 052722 JSR PC, T32RT2) 3SET UP OTHER COMMAND PACKET 

2790 050432 004737 052752 JSR PC, T32RT3 3SET UP OTHER ——— PACKET 

2791 050436 012737 176750 051444 MOV #65000. , T32DLY ;SET UP DELAY COUNTE 

2792 050444 004737 016054 10$: JSR PC, SOF INIT 300 INITIALIZE CONTROLLER 

2793 050450 103426 BCS 20$ ;68R IF INIT WAS OK 

2794 050452 DELAY 250 sDELAY ABOUT .25 SFC 
050452 012727 000250 MOV 9250,(PC)+ 
050456 000000 -WORD O 
050460 013727 002116 MOV LSOLY,(PC)+ 
050464 000000 .WORD O 
050466 005367 177772 DEC “af PC) 
050472 001375 BNE 
050474 005367 177756 DEC “32C PC) 
050500 001367 BNE .-20 

2795 050502 005337 051444 DEC TS20LY ;BUMP COUNTE 

2796 050506 001356 BNE 10% ;68R, IF COUNTER NOT DONE 

2797 050510 005237 002214 INC FATFLG sERROR COUNT 

2801 050514 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 

2802 050516 ERROF ERRNO,SFIERR, SFIMSG FATAL ERROR TSSR WAS a C 
050516 104455 TRAP CSEROF 
050520 000645 WOR 421 
050522 003646 "WORD SFIERR 
050524 012114 SFIMSG 

2803 050526 013737 002174 051300 20%: MOV UNITN, T320SW sSET UP UNIT (ORIVE) NUMBER 

2804 050534 052737 000040 051300 PIS BITS, T320SW ) TURN ON HIGH SPEED TO SAVE TIME 


2805 050542 012704 051260 MOV @TS2QPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
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2806 050536 004737 010742 JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 

2807 050552 103407 ecs 23% s6R, COMMAND ISSUED OK 

2808 050554 005237 002214 INC FATFLG sERROR COUNT 

2812 050560 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

2813 050562 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
050562 104456 TRAP § CSERHROD 
050564 000646 .WORD 422 
050566 005052 .WORD  WRTMSG 
050570 012114 .WORD SFIMSG 

2814 050572 238: CKLOOP ;LOOP IF SELECTED 
050572 104406 TRAP ss CCL P11 

2815 050574 004737 011074 JSR PC .REWIND sCALL TAPE REWIND COMMAND 

2816 050600 103411 ecs 30% :6R, IF NO PROBLEM 

2817 050602 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

2818 050606 010004 MOV RO,R4 :GET PACKET ADORESS 

2819 050610 005237 002214 INC FATFLG sERROR COUNT 

2823 050614 ERRHRD ERRNO, TS2RWN,PKTSSR ;REWIND NOT ACCEPTED 
050614 104456 TRAP = CSERHRD 
050616 000647 .WORD 423 
050620 051630 .WORD T 
050622 012126 .WORD  PKTSSR 

2624 050624 308: CKLOOP ;LO0P IF SELECTED 
050624 104406 TRAP ss C SCL PL 

013701 051310 MOV T32BFR6,R1 sPICK UP xSTO 

2626 050632 010102 MOV R1,R2 sSET UP EXPECTED 

2827 050634 052702 000002 BIS @B1T1,R2 sSET BOT BIT IN EXPECTED 

2828 050640 020102 CHP R1,R2 ;D00ES EXP = REC'D 

2829 050642 001406 BEQ 40$ :OR, IF EQUAL (OK) 

2830 050644 005237 002214 INC FATFLG sERROR COUNT 

2834 050650 ERRHRD ERRNO, T3S2B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
050650 104456 TRAP CSERHRD 
050652 000650 .WORD 424 
050654 051446 .WORD 132807 
050656 015554 .WORD €EXPREC 

2835 050660 40s: CKLOOP ;LOOP IF SELECTED 
050660 104406 TRAP =—s-« CSCLP 1 

2836 050662 012737 140411 051400 65%: MOV 0140411, T32PK3 sERASE DATA,CVC=1,ACK COMMAND 

2837 050670 012704 051400 MOV @T32PK3,R4 sSET UP R4 WITH PACKET ADORESS 

2838 050674 010337 051406 MOV R3, 13252 sSET UP RECORD SIZE IN PACKET 

2839 050700 01 MOV R4, TSDBC(RS) sISSUE COMMAND 

28640 050704 004737 016330 JSR »WAITF sWAIT FOR SSR TO SET 

2641 050710 016501 MOV TSSR(RS).R1 :GET TSSR CONTENTS 

2842 050714 012702 000206 MOV @SSR,R2 sSET UP EXPECTED 

2843 050720 020102 CMP R1,R2 sARE THEY EQUAL 

2844 050722 001757 BEQ 658 s8R, IF OK 

2845 050724 032701 000004 BIT @BIT2,R1 sCHECK FOR TAPE STATUS ALERT 

2846 050730 001006 BNE 808 ;8R, IF TAPE STATUS ALERT SET 

2847 050732 005237 002214 INC FATFLG sERROR COUNT 

2851 050736 ERRMRD ERRNO, TS2WDC,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
050736 104456 TRAP CSERHROD 
050740 000651 .WORD 425 
050742 052466 .WORD T32wOoCc 
050744 012126 .WORD PKTSSR 

2852 050746 80s: CKLOOP ;LOOP IF SELECTED 
050746 104406 TRAP CsCLP1 


2653 050750 013701 051310 MOV T32BFR+6,21 sPICK UP XxSTO 
2654 050754 010102 MOV R1,R2 sSET UP EXPECTED 


- MARDWARE TEST 1-8 TEST ie 


TEST 1 
TEST a: ERASE 
2855 050756 
2856 


000001 


002214 


002116 
177772 
177756 
051444 
002214 


AND OPERATION INCOMPL 


051402 


051406 
051444 


2403: 


2708: 


290%: 


14-JUN-84 16:41 


BIS 


gm 
oO 


CKLOOP 


@BITO,R2 
1,R 


ears 
ERRNO, TS2EOT ,EXPREC 


PC .FILLMEM 


R5S),R1 
#ssh!SCI6IT2:6113, sR2 
pits 

250 


T320LY 

270% 

FATFLG 

ERRNO, TS2ECF ,PKTSSR 


T32BFR+14,R1 

R1,R2 

@B1T6,R2 

R1,R2 

290% 

FATFLG 

ERRNO, TS20P1 ,EXPREC 


SEQ 9154 


sSET EOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 


sERROR COUNT 
sTAPE NOT AT EOT AFTER ERASE COMMANDS 


TRAp CSERHROD 

-WORD 426 

-WORD T32E0" 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCiP 1 


sSTARTING RECORD SIZE 

sSTART IG | READ BUFFER ADORESS 
sREAD DATA COMMAND 

sSET UP R4 "WITH PACKET ADORESS 
SSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH ALL ONES 

sSET UP RECORD SIZE IN PACKET 
sIS COMMAND 

sSET UP DELAY COUNTER 


sBR, IF OK 

s:DELAY FOR SSR TO BE SET 
MOV #250 ,,( PC )+ 
MOV LSOLY,(PC)> 
-WORD 0 
OEC -6( PC) 
BNE °° 
DEC ee 

sCOUNT DELAY ROUTINE DOWN 

s;B8R, IF DELAY HAS NOT ENDED 

sERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 427 
-WORO T32ECF 
.WORD PKTSSR 


sLOOP IF SELECTED 


sPICK , xST3 
sSET UP EXPECTED 
iSET OPI or" IN EXPECTED 
sIS OPI BIT SET 
sBR, IF BIT IS SET 
OUNT 


sERROR C 
;OPI BIT NOT SET 


TRAP Csc.Pi1 


TRAP CSERHROD 

-WORD 428 

-WORD T320PI 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


TEST 


2698 051206 


- HARDWARE 


003116 
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177777 


002214 000017 
017262 


016536 
046750 


D143 


14-JUN-84 16:41 


TST (R3)> 
CMP (R3),0177777 
BNE 265% 
ENOSUB 
CMP FATFLG,415. 
BLO 999% 
JSR PC ,CKDROP 
999%: 
3 
’ 
3 
JSR PC, TSTLOOP 
BCC 163$ 
JMP T32L.00P 
163% EXIT TST 


3° 
;LOCAL STORAGE FOR THIS TEST 
ho 

-*¢,¢10>E€177770 


TS2PACKET: 
. 100004 
«WORD TS2DATA 
-WORD 0 
-WORD 10. 
T32DATA: 
-WORD TS2BFR 
-WORD O 
-WORD 20. 
-WORD 0 
T320SW: .WORD 0 
T32BFR: .BLKW 25. 


é 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
a 

-*¢«, 01026177770 


T32PK2: 
-WORD 100006 
-WORD O 
-WORD O 
.WORD 6. 
T32PK3: 
-WORD 100005 
T3QR6 : 
T32WB: .WORD FREE 
-WORD O 
T32SZ -WORD O 
.EVEN 


SEQ 0159 


sGUMP COMMAND POINTER 

SAT ENO OF TABLE YET 

;BR, KEEP TRYING COMMANDS 

3>>>>>>>>>>2>> END SUBTEST >>>>>>>>> >>> 
L10056: 


TRAP CsESuB 
sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
1:00 WE NEED TO ITERATE TEST 
s8R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
-WORD 110053-. 


PACKET FOR TEST 


s COMMAND 
;WRITE CHARACTERISTICS COMMAND, WITH , ACK 


:ADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 
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E13. 


2958 
2959 
2960 
2961 051410 
2962 051410 140410 
2963 051412 141410 
2964 051414 140401 
2965 051416 141001 
2966 051420 161401 
2967 051422 161001 
2968 051424 141401 
2969 051426 140001 
2970 051430 141410 
2971 051432 141010 
2972 051434 141005 
2973 051436 177777 
2974 
2975 
2976 051440 000000 
2977 051442 000000 
2978 051444 000000 
2979 
2980 
2961 
29862 
2983 051446 124 141 160 
2964 051541 124 141 160 
2985 051630 122 145 167 
2986 051677 124 123 123 
2987 051746 124 123 123 
2988 052015 124 123 102 
122 105 101 
2990 052164 124 123 123 
2991 052241 124 123 123 
2992 052316 102 117 124 
105 i22 101 
124 123 123 
2995 052533 117 126 111 
2996 052570 105 162 141 
2997 
2996 
2999 
3000 
3001 
3002 
3003 
3004 
3005 052630 
3006 052630 
3007 052634 012701 051260 
012721 100004 
012721 051270 
3010 052650 
3011 052652 012721 000012 
3012 052656 012721 051502 
3013 052662 
3014 052664 ©12721 000024 


.EVEN 
s; TAPE MOTION PACKET COMMAND VALUES 
T32CMO0 : 


141005 
177777 


i°) 
0 
0 


; 
sLOCAL TEXT MESSAGES FOR TEST 
= 


SOMEEEEEEEEEEEE 


SEQ 0160 


sSPACE RECORDS REVERSE 
sSKIP TAPE MARKS REVERSE 
}READ REVERSE 

sREREAD PREVIOUS (OPP<0) 
sREREAD NEXT (OPP#1) 
sREREAD PREVIOUS (OPP=1) 
sREREAD NEXT (OPP=0) 
sREAD NEXT 

sSKIP TAPE MARKS REVERSE 
sSKIP RECORDS F 

;WRITE Ps Manian 

sEND OF DAT 


sTAPE TIMER COUNTER STORAGE AREA 
s TAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


‘Tepe Not At BOT After REWIND Commend (BOT Not Set In XSTO)’ 
‘Tepe Stetus Alert During “oy To EOT, But EOT Not Set’ 


OMEN’ 
"READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3‘ 


T32B0T: .ASCIZ 

T32EOT: .ASCIZ 

T3SQRWN: .ASCIZ ‘Rewind (POSITION) Command No ted’ 
T32AM3: .ASCIZ ‘TSSR Init. Feiled After REREAD COMMAND ' 
T32ERA: .ASCIZ '‘TSSR Not Correct After ERASE Command’ 
T32BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA C 
T32RIB: .ASCIZ 

T -ASCIZ ‘TSSR Not Correct After SPACE RECOROS Cc 
TS2TSA: .ASCI 


*TSSR Not Correct After READ REVERSE Into BOT’ 


Z 
S2B0E: .ASCIZ ‘BOT CXSTO) Still Set After Erese From Tape''s BOT Marker’ 


(Erese) Tape Properly’ 
ASE Command’ 


T32ECF: .ASCIZ ‘ERASE Feiled To Cl 

T32WOC: .ASCIZ ‘TSSR Not Correct After 

T320PI: .ASCIZ ‘OPI Bit (XST3) Feiled To Set’ 

TST32I0: . -ASCIZ ‘Erase And Operation Incomplete’ 


3¢ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
3 
3 - 


T32REST: 
SAVREG 
Vv ptt ve Hi, 
MOV 00004 , (R1)+ 
MOV eTS2DATA (R1)+ 
CLR R1)-+ 


(R1 
MOV #10. ,CR1)+ 
MOV @TS2BFR,CR1)+ 
CLR (R1)+ 
MOV 20. ,(R1)+ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH 

sADDRESS OF a DATA” “BLOCK 
}EXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 





TEST 


- HARDWARE TEST 
TEST "e ERASE AND OPERATION INCOMPLET 


3015 052670 


012701 
012721 
00502 


00502 
012721 


F13 
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000000 

30 
177777 
000000 


051370 
00006 


051400 


051302 


SEQ 0161 


sSELECT ORIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 


64%: MOV 0177777, T32BFR(R2) sALL ONES TO MESSAGE SUFFER 
TST -(R2) sNEXT LOCATION 
cMP #0 ,R2 sAT END OF LOOP YET 
NE 64% sKEEP GOING UNTIL DONE 
RTS PC sRETURN 
T3QRT2: 
SAVREG _—. THE REGISTERS 


CLR (R1)-+ sADORESS OF DATA BLOCK 
CLR (R1)>+ sEXTENDED ADORESS 
MOV @6.,(R1)+ 3SIZE OF DATA BLOCK IN BYTES 
CLR (R1)>+ 
RTS PC sRETURN 
T3QRTS: 

SAVREG sSAVE REGISTERS 
MOV @T32PK3,R1 3SET UP POINTER ADORESS 
CLR CR1)> sCOMMAND SPACE 
CLR CR1)-+ sADORESS OF DATA BLOCK 
CLR (R1)-+ sEXTENDED ADDRESS 
CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
RTS PC ;RETURN 
ENOTST 

L10053: 

TRAP CsETST 

-SBTTL TEST 5: DATA PARITY TEST 


S 


: 
: 
3 
; 
H 
3 
sTEST 5 -- Date Parity Test 
' 


sSTART OF THE PACKET 
;sWRITE SUBSYSTEM MEM. WITH ACK, 


iThis test verifies that the date perity circuitry in both the controller and the 


i transport 
swritten onto tape end 


is operating eoagerey S by forcing date records with w perity to be 
checking the results obtained when the data 's read. The 


sfollowing test sequence is performed: 


1. 


A Write Cherecteristice command is iseved and the resulting stetus is 
examined to determine the states of the Extended Features and Buffering 
Enable switches on the controller module. If buffering is disabled, no 
further actions need be taken in this step and the progres proceeds to 
the next step. If buffering is enabled, tt is disabled vie oy Buffer 
Control field in the extended characteristics date word supplied by « 
Write Cherecteristice command. (The module must be in Extended mode, 
so if it is not elready, ea Write Subsystem Memory command is issued to 
chenge the logicel sense of the Extended Socieen’ switch. ) 


The Write Subsystem Memory commend is used to set the Force Wrong 
Parity control flip-flop. 





G13 
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TEST 5S: 


3107 052776 
3112 053004 
3113 053010 


3127 053066 


DATA PARITY TEST 


006413 002172 
055575 
016570 
000005 


054646 


002210 


10. 


ee @+ Ge os GF Ge Ge Ge Gs GF Oe Ge Ge Ge GF Ge GF GH GF Gs GF GF Ge GF OF Ge Ss GH Ge GH Ge GH OF OF Oe oe 


T33L00P : 


10%: 


The tape is rewound. 
oe Write Date commend 


It is 


bit is set. 


The previous step is 
Coctel). 


The tape is rewound. 


A Reed Next commend is issued to reed e record with faulty per ity. 
is verified thet this commend results in Recovereble Error termination 
(TC#4) and thet both the Uncorrectable Dete (UNC) and 
(RBP) error bits ere set. 


reed is correct. 


A Read Reverse command with OPP=1 is issued to read, 
seme record with faulty perity es read in the previous step 
eas thet this commend results 
CRBP) error bits ere set. 


read is correct. 


issued to write ea dete 


repeated for 


SEQ 0162 


C UNC ) 


each dete 


Tape is spaced forward one record. 


The previous three steps ere executed for each test record originally 


written. 


The controller is initialized to clear 


previously set up. 


@EPRT2, EPRTSW 
@TST33I0,RO 
PC, TSTSETUP 
#5 , LOOPCNT 
T33CNT 


INTRECV 
T33CNT 


5000 
PC, SOF INIT 


TS:: 
sSECONDARY ERROR MESSAGE 
sASCII MESSAGE vite TEST 


sCLEAR TAPE RECORD COUNTER 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
TS 


“* trap sC8BSUB 
s INTERRUPT INDICATOR 


s; TIMER FOR WRITE DATA SPACING 
s TIMER FOR iy oon RETRY SPACING 
T COMMAND P 


3SE ACKET 
iSET UP OTHER COMMAND PACKET 
sSET UP OTHER oe PACKET 
s;SET UP DELAY COUNTE 
300 INITIALIZE ON CONTROLLER 


record containing ell 
oe Fe thet this commend results in Recoverable Error 


joraientlen (TC#4) and that the Uncorrectable Dete Error error 


value 2 through 377 


It 


Reed Bus Parity 
It is elso verified nas the date ectuelly 


in ag the 
t is 
in Recoverable Error termination 
end thet both the Uncorrectable Dete (UNC) and Read Bus Parity 
It is also verified that the dete actually 


the special test conditions 





TEST 1 - HARDWARE TEST i. 8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0163 
TEST 5: DATA PARITY TEST 

3128 053072 103426 BCS 208 ;BR IF INIT WAS OK 

3129 053074 DELAY 250 sDELAY ABOUT .25 SEC 
053074 012727 000250 MOV 0250 ,(PC)+ 
653100 000000 -WORD O 
053102 013727 002116 MOV LSOLY,(PC)- 
053106 000000 -WORD 0 
053110 005367 177772 DEC Bee PC) 
053114 001375 BNE 
053116 005367 177756 EC “29 PC) 
053122 001367 BNE .-20 

3130 053124 005337 054652 DEC TS30LY sBUMP COUNTER 

3131 053130 001556 BNE 10% sBR, IF COUNTER NOT DONE 

3132 053132 005237 002214 INC FATFLG sERROR COUNT 

3136 05.136 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3137 053140 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
053140 104455 TRAP CSEROF 
053142 000765 -WORD S01 
053144 003646 -WORD SFIERR 
053146 012114 -WORD SFIMSG 

44 053150 013737 002174 054520 20%: MOV UNITN, T330SW sSET UP UNIT NUMBER 

3140 053156 012704 054500 MOV @TSSPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORE 

3141 053162 004737 010742 JSR PC,WRTCHR S ISSUE WRITE CHARACTERISTICS 

3142 053166 103407 BCS 23% 38R, IF COMMAND ISSUED OK 

3143 053170 005237 002214 INC FATFLG sERROR yo ye 

3147 053174 010001 MOV RO,R1 3 SAVE CONTENTS OF TSSR 

3148 053176 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
053176 104456 TRAP CSERHRD 
053200 000766 . WORD 
053202 005052 -WORD WRTMSG 
053204 012114 -WORD SFIMSG 

3149 053206 23%: CKLOOP sLOOP IF SELECTED 
053206 104406 RAP CsCLP1i 

3150 053210 004737 011074 JSR PC REWIND sCALL bags: REWIND COMMAND 

3151 053214 103411 BCS 30% 3BR, IF NO PROBLEM 

3152 053216 016501 000002 MOV atti :GET TSSR CONTENTS 

3153 053222 010004 MOV RO,R sGET PACKET ADDRESS 

3154 053224 005237 002214 INC FATFLG sERROR COUNT 

3158 053230 ERRHRD ERRNO, TSSRWN,PKTSSR sREWIND NOT ACCEPTED 
053230 104456 TRAP CSERHRD 
053232 000767 . WORD 3 
053234 055350 -WORD T33RWN 
053236 012126 ; PKTSSR 

3159 053240 30$: CKLOOP sLOOP IF SELECTED 
053240 104406 TRAP CsCLP1 

3160 053242 013701 054530 MOV T338FR+6,R1 sPICK UP XSTO 

3161 053246 010102 MOV R1,R2 sSET UP EXPECTED 

3162 053250 052702 000002 BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 

3163 053254 020102 CMP R1,R2 sDOES EXP = REC'D 

3164 053256 001406 BEQ 40% sBR, IF EQUAL (OK) 

3165 053260 005237 002214 INC FATFLG sERROR COUNT 

3169 053264 ERRHRD ERRNO, T33B0T ,EXPREC s; TAPE NOT AT BOT AFTER REWIND 
053264 104456 TRAP CSERHRO 
053266 000770 -WORD 504 
053270 055255 -WORD T3380T 
053272 015554 -WORD EXPREC 

3170 053274 40$; CKLOCP sLOOP IF SELECTED 


‘ 


053274 

3171 053276 
3172 0533502 
3173 053304 
3174 053312 
3175 053320 
3176 053324 
3177 053330 
3178 053334 
3179 053336 
340 


3220 053542 


TEST 1 


TEST 1 - HARDWARE 
TEST 5: DATA PARITY TEST 


012737 


002220 
000200 
000010 
054610 
000000 


016416 


002214 


002222 
002174 
000020 
000010 
054500 
010742 
002214 


000026 
003116 
054650 
140005 
054620 
000024 


42$: 


054631 
054630 


55$: 


054622 


054620 110%: 


054626 


114 


1-8 TEST MACRO M1113 14-JUN-84 16:41 


SEQ 0164 


TRAP CSCLP1 


EXTFEA sCHECK FOR EXTENDED FEATURES Sw SWITCH 
55% ;8R IF SWITCH IS ON 
200, 133851 sWRITE MISCELLANEOUS CONT/READ STATUS 
#10, 17338S0 sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 
@T33PK2,R4 sWRITE SUBSYS MEM PACKET 
R4, TSDBCRS) sISSUE COMMAND 
PC,CHKTSSR ;WAIT FOR SSR 
508 i8R, IF NO ERROR 
RO,R1 ;ERROR, SAVE TSSR 
FATFLG sERROR COUNT : 
ERRNO, T33SSR,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
.WORD 505 
.WORD 133SSR 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sCHECK FOR BUFFER ENABLED 
70$ s8R, IF BUFFERING NOT ENABLED 
UNITN, T330SW sSET UP UNIT NUMBER 
@B1T4,T330SW sBUFFER DISABLE 
@BIT3,T330SW sBUFFER DISABLE SEND 01 TO BITS 4 AND 3 
oT3. R4 sSUBROUTINE NEEDS PACKET ADORESS 
PC, SISSUE WRITE CHARACTERISTICS 
60$ :6R, IF Core ISSUED OK 
FATFLG OUNT 
RO,R1 ; SAVE CONT ENTS OF TSSR 
ERRNO, WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
’ 506 
.WORD WRTMSG 
.WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CSCLP1 
#100, 7338S1 ;sWRITE MISCELLANEOUS CONT/READ 5/ATUS 
#11, 1338S0 sFUNC. SEL. BIT (SET WRONG PARITY) 
@T33PK2 ,R4 S WRITE SUBSYS MEM P*CKET 
R4, TSDBC(RS) sISSUE COMMAND 
,CHKTSSR ;WAIT FOR SSR 
3 ;BR, IF NO ERROR 
RL sERROR, SAVE TSSR 
FATFLG ;ERROR COUNT 
ERRNO, T33SSR,PKTSSR :TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
.WORD 507 
.WORD T33SSR 
.WORD PKTSSR 
,LOOP IF SELECTED 
TRAP CsCLP1 
022. ,.R3 sNUMBER OF RECORDS TO BE WRITTEN 
FREE , T33WB ;STARTING WRITE BUFFER ADDRESS 
T33CNU ;MAKE SURE ITS CLEAR 
140005 , T33PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
@T33PK3,R4 :SET UP R4 WITH PACKET ADDRESS 
020. ,133SZ sSET UP RECORD SIZE IN PACKET 





TEST 


TEST 1-8 TEST MACRO M1113 14-JUN-84 


013777 


- HARDWARE 
TEST 5: DATA PARITY TEST 
054650 127340 
054650 


011074 
000002 
002214 


054650 


1208: 


130$: 


140$: 


150%: 


J13 


16:41 


T33CNU, FREE 


@SSR!SC!BIT3,R2 
R1,R2 


FATFLG 
ERRNO, T33WPW,PKTSSR 


T33BFR+10,R1 

R1,R2 

@BIT1,R2 

R1,R2 

130% 

FATFLG 

ERRNO, TS3UNC , EXPREC 


R3 

110$ 

ath — 
TSSRCRS), R1 
RO,R 


FATF UG 
ERRNO, T33RWN,PKTSSR 


T33BFR+6,R1 

R1,R2 

#6IT1,R2 

R1,R2 

150$ 

FATFLG 

ERRNO, T3380T , EXPREC 


T33CNU 


SEQ 0165 


aay FILLED WITH DATA IN RECORD 


sREADY FOR NEXT RECORD 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 


sARE THEY EQUAL 
sBR, IF OK 
sERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP 
. WORD 
. WORD 
WORD 

sLOOP IF SELECTED 
TRAP 


sPICK UP XST1 
:SET UP EXPECTED 
;SET UNC BIT aoe oe 


sLOOP IF SELECTED 
sDEC RECORD COUNTER 
BR MORE RECORDS TO WRITE 
OMMAND 
OBL 
sGET TSSR CONTENTS 
sGET PACKET ADORESS 


sERROR COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 
ERROR T 


3 COUN 
; TAPE NOT AT BOT AFTER REWIND 
TRAP 


. WORD 
. WORD 
. WORD 


s;LOOP IF SELECTED — 
;CLEAR DATA VALUE IN RECORD 


CSERHRD 


508 
T33WPW 
PKTSSR 


CsCLP1 


CSERHRD 
509 


T33UNC 
EXPREC 


CsCLP1 


CsCLP1 





Kis: 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0166 
TEST +5; DATA PARITY TEST 
3270 053756 012703 000024 MOV #20. ,R3 sRECORD SIZE 
3271 053762 013737 003116 054622 155%: MOV FREE , T33RB :STARTING WRITE BUFFER ADDRESS 
3272 053770 012737 140001 054620 MOV #140001, T33PK3 sREAD DATA,CVC#1,ACK COMMAND 
3273 053776 012704 054620 MOV OT33PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
3274 054002 012737 000024 054626 MOV #20. ,T33SZ sSET UP RECORD SIZE IN PACKET 
3275 054010 010465 000000 MOV R4, TSOB(RS ) s ISSUE COMMAND 
3276 054014 004737 016330 JSR PC, WAITF ;WAIT FOR SSR TO SET | 
3277 016501 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
3278 012702 100210 MOV @SSR!SC!BIT3,R2 :SET UP EXPECTED 
3279 054030 1 CMP »R2 :ARE THEY EQUAL | 
3280 054032 001406 BEQ ;BR, IF OK 
3281 054034 005237 002214 INC FATFLG sERROR COUNT 
3285 054040 ERRHRD ERRNO, T33WOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
054040 104456 TRAP = CSERHRD 
054042 001000 -WORD 512 
054044 055417 -WORD T33WOC 
| 054046 012126 .WORD PKTSSR 
|: 3286 054050 160%:  CKLOOP ;LOOP IF SELECTED 
054050 TRAP =—s- C$CLP-1 
| 3287 054052 013701 054532 MOV T33BFR+10,R1 sPICK UP XST1 
3288 054056 010102 MOV R1,R2 sSET UP EXPECTED 
| 3289 054060 052702 000002 BIS @B1T1,R2 sSET UNC BIT IN EXPECTED 
32H 054064 020102 CMP 1,R2 ;D0ES EXP = REC'D 
3291 054066 001406 BEQ 170$ 3BR, IF EQUAL (OK) 
3292 054070 005237 002214 INC FATFLG sERROR COUNT 
3296 054074 ERRHRD ERRNO, TS3UND,EXPREC ;UNC BIT NOT SET AFTER READ CMD. 
054074 104456 TRAP = CSERHRD 
054076 001001 . WORD 3 
054100 055102 .WORD  T33UND 
054102 015554 .WORD EXPREC 
3297 054104 170$: | CKLOOP ;LOOP IF SELECTED 
0541 TRAP = C$CLP1 
3298 054106 013701 054532 MOV T33BFR+10,R1 sPICK UP xsT3 
054112 010102 MOV R1,R2 sSET UP EXPECTED 
3300 054114 052702 000400 BIS @B1T8,R2 sSET RBP BIT IN EXPECTED 
3301 054120 020102 CMP R1,R2 sDOES EXP = REC'D 
3302 054122 001406 BEQ 180$ sBR, IF EQUAL (OK) 
3303 054124 005237 002214 INC FATFLG sERROR COUNT 
3307 054130 ERRHRD ERRNO, TS3SRBP,EXPREC sREAD BUS PARITY ERROR BIT -uot SET 
054130 104456 CSE ERHRO 
054132 001002 THORO 514 
054134 54 .WORD T33RBP 
054136 015554 .WORD EXPREC 
3308 054140 180%:  CKLOOP ;LOOP IF SELECTED 
0541 TRAP = C$CLP 1 
3309 054142 017701 126750 MOV OFREE,R1 ;GET DATA READ 
3310 054146 013702 054650 MOV T3SCNU,R2 sGET PATTERN 
3311 054152 020102 CMP R1,R2 sARE THEY EQUAL 
3312 054154 001406 BEQ : :8R, IF OK 
3313 054156 005237 002214 INC FATFLG sERROR COUNT 
3317 054162 ERRHRD ERRNO, TSSDTA,EXPREC ;DATA NOT CORRECT 
054162 104456 TRAP = C$ERHRD 
054164 001003 .WORD 515 
054166 055500 .WORD T330TA 
054170 015554 .WORD EXPREC 
3318 054172 182$:  CKLOOP ;LOOP IF SELECTED 
054172 104406 TRAP = C$CLP1 





i rr er cn ee a re ee a a a ne ee = —_--——-— - 


| 
TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0167 | 
TEST s: DATA PARITY TEST 
3319 054174 013737 003116 054622 MOV FREE , 1338 sSTARTING WRITE BUFFER ADDRESS | 
3320 054202 012737 140401 054620 195%: MOV #140401, T335PK3 sREAD REVERSE DATA RETRY,ACK COMMAND | 
3321 054210 012704 054620 MOV @T33PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
3322 054214 012737 900024 054626 MOV #20. , T33SZ sSET UP RECORD SIZE IN PACKET 
3323 054222 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
3324 054226 004737 0163350 JSR PC ,WAITF sWAIT FOR SSR TO SET 
3325 054232 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
3326 054236 012702 100210 MOV @SC!SSR!BIT3,R2 sSET UP EXPECTED 
3327 054242 020102 CMP R1,R2 sARE THEY EQUAL 
3328 054244 001406 BEQ 190% ;BR, IF OK 
3329 054246 005237 002214 INC FATFLG sERROR COUNT 
3333 054252 ERRHRD ERRNO, TS3SWOC,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
054252 104456 TRAP Cs€ 
001004 -WORD 516 
054256 055417 -WORD T33WOC 
054260 012126 -WORD PKTSSR 
3334 054262 190%: CKLOOP sLOOP IF SELECTED 
054262 104406 TRAP CsCLP1 
S 054264 0135701 054552 MOV T336FR+10,R1 sPICK UP XST1 
3336 054270 010102 MOV R1,R2 sSET UP EXPECTED 
3337 054272 052702 000002 BIS #61T1,R2 sSET UNC BIT IN EXPECTED 
3338 054276 020102 CMP R1,R2 sD0ES EXP = REC'D 
3339 054300 001406 BEQ 200% sBR, IF EQUAL (OK) 
3340 054302 005237 002214 INC FATFLG sERROR COUNT 
3344 054306 ERRHRD ERRNO, T33UND,EXPREC TAPE NOT AT BOT AFTER REWIND 
054306 104456 TRAP CSERHRD 
054310 001005 ° 517 
054312 055102 -WORD T33UND 
054314 015554 -WORD EXPREC 
3345S 054316 200%: CKLOOP sLOOP IF SELECTED 
054316 104406 TRAP CsCiLP1 
3346 054320 013701 054532 MOV T33BFR+10,R1 sPICK UP XSTO 
3347 054324 010102 MOV R1,R2 sSET UP EXPECTED 
3348 054326 052702 000400 BIS #BITS,R2 sSET RBP BIT IN EXPECTED 
3349 054332 020102 chp R1,R2 sD0ES EXP = REC'D 
3350 054334 001406 BEQ 210% 3BR, IF EQUAL (OK) 
3351 054336 005237 002214 INC FATFLG sERROR COUNT 
3355 054342 ERRHRD ERRNO, TS3SRBP ,EXPREC ;READ BUS PARITY ERROR BIT NOT SET 
054342 104456 TRAP CsE 
054344 001006 WORD 518 
4 -WORD T33RBP 
054350 015554 -WORD EXPREC 
3356 054352 210%: CKLOOP sLOOF IF SELECTED 
054352 104406 TRAP CsCLP1 
3357 054354 017701 126536 MOV @FREE ,R1 sGET DATA READ 
3358 054360 013702 054650 MOV T33CNU,R2 3GET PATTERN 
3359 054364 020102 CMP R1,R2 sARE THEY EQUAL 
3360 054366 001406 BEQ 215% sBR, IF OK 
3361 054370 005237 002214 INC FATFLG sERROR COUNT 
3365 054374 ERRHRD ERRNO, TSS0TA,EXPREC sDATA NOT CORRECT 
054374 104456 TRAP CSERHRD 
054376 001007 -WORD 519 
055500 -WORD TS330TA 
054402 015554 ‘ EXPREC 
3366 054404 215%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


104406 
3367 054406 010302 MOV R3,R2 ;SAVE k3 FOR A MOMENT 





- HARDWARE TEST 1-8 TEST MACRO M1115 


TEST 1 
TEST 5: DATA PARITY TEST 


012703 


000001 
010544 


054650 


053762 


002214 
017262 


016536 
053026 


000017 


14-JUN-84 16:41 


MOV #1,R3 

JSR PC , SPACE 

MOV R2,R3 

INC T33CNU 

DEC R3 

BEQ 220% 

JMP 155% 
2208: 

ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
999%: 

JSR an — 

BCC 

JMP + 3SL00P 
2308: EXIT TST 


;LOCAL STORAGE FOR THIS TEST 


. ¢10>€177770 
TS3PACKET: 
. WORD 00004 
“WORD  T33DATA 
-WORD O 
-WORD 10. 
T33DATA: 
-WORD [336FR 
-WORD O 
-WORD 20. 
-WORD O 
T330SW: .WORD 0 
os -BLKW = 25. 


iWRITE SUBSYSTEM MEMORY COMMAND PACKET 
: =<, ¢10>€177770 


T33PKe2: 
-WORD 100006 
-WORD T338F2 
-WORD O 
-WORD 6 
T33PK3: 
-WORD 100005 
T33R6 : 
T33WB: .WORD FREE 
. WORD 
T33SZ: .WORD 0 
.EVEN 


SEG 0168 


R3 
sBUMP TO NEXT RECORD NUMBER 
COUNTER 


BR, IF DONE 
;BR, IF NOT DONE YET 


3<<0400¢¢00000 END SUBTEST >>>>>>> >> >>> 
L10060: 


TRAP CsESUB 
IS ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
;8R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP 
- WORD 


CSsExIT 


| 
| 
L10057-. 
;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
;ADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
s;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
| 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM C AND ACK 


OMMAND , 
sADORESS OF SELECT BLOCK DATA 
sSIZE OF DATA PACKET 


;REREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 


16:41 SEQ 0169 
10 sBSELO AREA 
200 sBSEL1 AREA 
0 ;SEL 2 AREA 
0 ;DATA AREA 


-EVEN 
; TAPE MOTION PACKET COMMAND VALUES 


100205 sREREAD DATA (NEXT) 

100605 sREREAD DATA RETRY 

102205 sWRITE CONTINOUS 

177777 sENO OF DATA 

0 ; TAPE TIMER COUNTER STORAGE AREA 
0 ;TAPE TIMER COUNTER STORAGE AREA 
0 sDELAY COUNTER 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


‘Read Bus Parity “it Not Set (XST1), Should Se’ 

‘TSSR Incorrect After Wrong Perity Write Command’ 

‘UNC Bit (XST1) Not Set After Wrong Parity WRITE Command’ 

‘UNC Bit (XST1) Not Set After ne READ ne 
‘WRITE MISSCELLANEOUS CONT/READ C t Accep 

‘Tape Not At BOT After REWIND Command ceor Not Soe * xSTO)' 
‘Rewind (POSITION) Command Not Accepted’ 

‘TSSR Not Correct After READ Wrong Parity Command’ 

‘Date re Error, Date Read From Tape Not Equei To Written’ 
-ASCIZ ‘Date Parity’ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 

TEST 5S: DATA PARITY TEST 
3428 ; 
3429 : 
3430 3 
3431 054630 T338F 2: 
3432 054630 010 T338S0: .BYTE 
3433 054631 200 T338S1: .BYTE 
3434 054632 000000 T33S2 . WORD 
3435 054634 000000 T3383 . WORD 
3436 3 
3437 3 
3438 
3439 
3440 
3441 054636 100205 T33RN: .WORD 
3442 054640 100605 T33WOR: .WORD 
3443 054642 102205 T33CON: .WORD 
3444 054644 177777 . WORD 
3445 
3446 
3447 054646 000000 T33CNT: .WORD 
3448 054650 000000 T33CNU: .WORD 
3449 054652 000000 T330LY: .WORD 
3450 
3451 
3452 3° 
3453 

54 122 145 141 T33RBP: .ASCIZ 

3455 054732 124 123 123 T33WPW: .ASCIZ 
3456 055012 125 116 103 T33UNC: .ASCIZ 
3457 055102 125 116 103 T33UND: .ASCIZ 
3458 055171 127 122 111 T33SSR: .ASCIZ 
3459 5 124 141 160 T3380T: .ASCIZ 
3460 055350 122 145 167 T33RWN: .ASCIZ 
3461 055417 124 123 123 T33WOC: .ASCIZ 
3462 055500 104 141 164 T330TA: .ASCIZ 
3463 055575 104 141 164 TST33I0: 
3464 EVEN 
3465 3¢ 
3466 
3467 
3468 
3469 ; 
3470 3- 
3471 
3472 055612 T33REST: 
3473 055612 SAVREG 
3474 055616 012701 054500 MOV 
3475 055622 012721 100004 MOV 
3476 055626 012721 054510 MOV 
3477 055632 005021 CLR 
3478 055634 012721 000012 MOV 
3479 055640 012721 054522 MOV 
3480 055644 005021 CLR 
34861 055646 012721 000024 MOV 
3482 055652 005021 CLR 
3483 055654 012711 000000 MOV 
3484 055660 012702 000030 MOV 


os, THE owe ge Hse 

@T3SPACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
OTSSDATA,(R1)+ sADORESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADORESS 
#10. ,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 
= sADDRESS OF MESSAGE BUFFER 

4 
see senee sLENGTH OF MESSAGE BUFFER 

¢ 
#0,(R1) sSELECT DRIVE ZERO 
#24, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 


TEST 


TEST 1-8 TEST MACRO M1115 


1 - HARDWARE 
TEST 5: DATA PARITY TES! 


3509 
3510 055766 


177777 054S22 


006354 002172 


002210 


643: MOV 
TST 


T33RT2: 


T33RTS3: 


Bld 


14-JUN-84 16:41 


0177777, TSSBFR(R2) 


-(R2) 
@0 ,R2 
645 
PC 


@T33PK2,R1 
#100006 ,(R1)- 
@T33BF2,(R1)> 


SEQ 9179 
sALL ONES TO MESSAGE BUFFER 


oor YE 
sXEEP GOING UNTIL DONE 
RE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRE TURN 


sSAVE REGISTERS 

sSET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA TRANSFER BLOCK 
sRETURN 


L10057: 
TRAP CsETst 


-S8TTL TEST 6: OPERATIONS AT EOT 


3° 


3C 
$ 


i 
sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
OMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


; 
3; THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


CLR 


ad 


@€PRT1, EPRTSW 


; 
sTEST 6, SUBTEST 1 


THE VARI 


IS PERFORMED: 


‘ 
; 
‘ THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED 
; 
; 
; 


OUS TAPE MOTION COMMANDS. 


T6:: 
sPRIMARY ERROR MESSAGE 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 


sCLEAR TAPE RECORD COUNTER 


PROPERLY BY 
THE FOLLOWING TEST SEQUENCE 








C14 


TEST 1 HARDWARE ee 1.6 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0171 
TEST 6. OPERATIONS AT £07 

3543 , 1. THE TAPE IS REWOUND. 
aa ' 
3545 \ 2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
oo STATUS ALERT TERMINATION IS SEEN WITH EOT*1. ERRORS 
334? ; OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
3548 : ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
3549 : ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 
3550 ' 
3551 - 3, ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
oe THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 
3553 
3554 ; 4. A WRITE TAPE MARK COMMAND IS ISSUED, AMD IT IS CHECKED 
3555 ; THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1 
3556 3 
3557 ; S. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
3558 ; CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
3559 ; EOT=1 AND THK#1. 

3 
3561 : 6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3562 : 1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
3563 : TERMINATION OCCURS, WITH EOT*1 AMD THK=1. 

; 
3565 : 7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3566 ; 1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
3567 ; OCCURS, WITH EOT*1. 
3569 8. A-SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3570 : 1, IS ISSUED. AND IT IS CHECKED’ THAT NORMAL TERMINATION 
3371 : OCCURS, WITH EOT#1 

: 
3578 ; 9. A READ REVERSE COMWMD IS ISSUED. AND IT IS CHECKED 
3574 : THAT NORMAL TERMINATION OCCURS. WITH EOT=1 

3 
3576 : 10. A READ FORWARD COMMAND TS ISSUED. AMD IT TS CHECKED 
3577 ; THAT NORMAL TERMINATION OCCURS, WITH EOT=1 

a 
3579 ; 11. A SPACE RECORDS REVERSE CORPIAND, ITH A RECORD COUNT OF 
3580 3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
3581 : OCCURS, WITH EOT*0. 
3583 : 12. A SPACE RECORDS FORMARD COMMAND, ITH A RECORD. COUNT OF 
3584 : S, IS ISSUED, AND IT IS CHECKED" THAT NORMAL TERMINATION 
3585 : OCCURS, WITH EOT®1 

+ 
3587 ; 13. A SKIP FILE MARKS REVERSE COMMAND TS ISSUED. WHICH 
3588 SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
3589 ; TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT=O, 
3590 : BOT=1, AND RIB=1 
3591 : 
3592 3 
3593 
3594 3 
3595 mn 
3596 
3597 056022 T3400? : 
3596 * 


TEST 1 
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TEST 6: OPERATIONS AT EOT 


000000 
013727 
000000 


002116 
177772 
177756 


002214 


002174 


010742 


— 6, SUBTEST 1 


iVERIFIES THAT WRITING OVER THE END-OF-TAPE (EOT) 
sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
DOES NOT RECOGNIZE THE EOT MARKER, THE 
sTAPE WILL RUN OFF THE EMD OF THE REEL, CAUSING THE 
sPROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 
SINDICATION. IN THIS gn ES MAINTENANCE 


MAINTENANCE INE IA THE FRONT PANEL. 
IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
sTRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
sTHE END OF THE REEL BUT THE TRANSPORT MUST BE 
sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
sFATAL DIAGNOSTIC ERROR. 

; 


108: JSR PC, SOF INIT 
20% sB8R IF INIT WA 


DELAY 250 sDELAY A WHILE 
TSSRCRS),R1 sGET TSSR STATUS 
BIT @SSR,R1 sCHECK FOR SSR SET 
$ s3BR, WHEN SSR IS SET 
DEC T340LY sBUMP T 
BNE 10% 


sERROR COUN 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


ERROF ERRNO, SFIERR, SFIMSG 


MOV UNITN, T340SW sSET UP DRIVE 
BIS #8ITS, 1340SW 
MOV OTS4PACKET ,R4 


JSR PC ,WRTCHR 


sSET COMMAND PACKET 

sRESTORE PACKET 

sSET UP OTHER COMMAND PACKET 
sSET UP COUNTER 

3:00 oes ‘4 CONTROLLER 


sLOOP IF SELECTED 


SEG 0172 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
76.1: 


CsBSUB 


#250, (PC )> 
LoL y.(C). 
660) 
"22¢PC) 


a 


CsEROF 
60 


1 
SFIERR 
SF IMSG 


CsCLP1 


NUMBER 
sTURN ON HIGH SPEED TO SAVE TIME 
sSUBROUTINE NEEDS PACKET ADDRESS 
TISSUE WRITE CHARACTERISTICS 


TEST 1 - HARDWARE TEST 
TEST 6: OPERATIONS AT 


3645 056170 103407 
3646 056172 005237 
3650 056176 010001 
3651 056200 

104456 
001132 
005052 


012114 


002214 


011074 
000002 
002214 


002214 


060610 


060612 
060616 


060610 
060616 


35%: 


40$: 


a ee ae ee 


E14 


° TEST MACRO M1113 14-JUN-84 16:41 
EO 


30% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


PC ,REWINO 

35% 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO , TS4RWN,PKTSSR 


FLG 
ERRNO, T34ET ,PKTSSR 


#BIT2,R1 
60% 


40% 
T34BFR+6,R1 
R1,R2 
@BITO,R2 


eR2 


R4, TSOB(RS) 


SEQ 0173 
s6R, IF SOMAOR — OK 
s SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 602 
-WORD  WRTMSG 
-WORD SFIMSG 


sLOOP IF SELECTED 
TRAP CSCLP1 


sREWIND CALL 

sBR, IF TSSR IS OK (GOOD) 

;GET TSSR 

sSET UP PACKET 

sERROR COUNT 

sTSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
. WORD 603 
. WORD T34RWN 
.WORD PKTSSR 


sLOOP IF SELECTED 
7 DATA, ACK, CvC=1 
T MAX NUMBER 


TRAP CsCLP1 


sSET UP BUFFER SIZE (4K BYTES) 
sR4 = POINTER TO PACKET 
OMMAND 


sISSUE C 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

s8R, IT MIGHT BE END OF TAPE 
sDEC RECORD COUNTER 

sBR, IF MORE TO GO 


sERROR COUNT 
sEOT NOT FOUND (USE tee —Ametg: § 


oa 
. WORD 9 
.WORD PKTSSR 
sCHECK FOR TAPE STATUS ALERT 
t . IF SET 
sKEEP GOING 
sPICK UP XSTO 
sSET 


UP EXPECTED 
sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
s8R, IF EOT WAS FOUND 
sKEEP LOOKING 
sLOOP IF SELECTED 

TRAP CsCLPi 


sWRITE DATA, ACK, CvC=1 

sSET UP WRITE BUFFER ADORESS 
sSET UP BUFFER SIZE he BYTES) 
Ra * POINTER TO PACKET 

sISSUE COMMAND 





F14 
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TEST 6: OPERATIONS AT EOT 


SEQ 0174 


3696 056430 004737 016330 JSR ss PC, WAL TF ;WAIT FOR SSR TO SET 
3697 056434 016501 000002 MOV TSSR(RS),RI IGET TSSR CONTENTS 
3698 056440 012702 100204 MOV @SC!SSRIBIT2,R2 SET UP EXPECTED 
3699 056444 020102 CMP 1,R2 ARE THEY EQUAL 
3700 056446 001406 BEQ 908 iOR, IF THEY ARE OK | 
3701 056450 005237 002214 INC FATFL sERROR COUNT | 
3705 056454 ERRMRO ERRNO TS4ET2,PKTSSR |WRITE TAPE AT EOT FAILED 10 SET TSA | 
056454 1044 TRAP _ CSERHROD 
056456 001135 WORD 60 | 
056460 061317 "WORD -T34ET2 
056462 012126 "WORD PKTSSR 
3706 056464 90$:  CKLOOP ;LOOP IF SELECTED 
056464 TRAP CSCLP1 
3707 056466 013701 060520 MOV T34BFR+6,R1 PICK UP XSTO | 
3708 056472 010102 MOVs R41 R2 SET UP EXPECTED 
3709 056474 052702 000001 BIS @B1T0,R2 SET THE EOT BIT ON IN EXPECTED 
3710 056500 020102 CMP ORR sWAS THE BIT ON 
3711 056502 001406 BEQ 100$ :8R, IF EOT WAS FOUND 
3712 056504 005237 002214 INC FATFLG ;ERROR COUNT | 
3716 056510 ERRHRD ERRNO, T34ETN, EXPREC sEOT BIT (XSTO) NOT SET 
056510 104456 T CSERHRO | 
056512 001136 WORD 606 
056514 061401 “WORD T34ETN 
056516 015554 "WORD  EXPREC 
3717 056520 100$:  CKLOOP ;LOOP IF SELECTED 
1 TRAP —- CSCLP1 
3718 056522 012737 140011 060610 MOV #140011, T34PK3 ;WRITE TAPE MARK, ACK, CVC*1 COMMAND 
3719 056530 012704 060610 MOV OT34PK3_.R4 ;R4 = POINTER TO PACKET 
3720 056534 010465 000000 MOV R4, TSDBCRS) ISSUE COMMAND 
3721 056549 004737 016330 JSR —s- PC. WAITF ;WAIT FOR SSR TO SET 
016501 000002 MOV TSSRCRS),R GET TSSR CONTENTS 
3723 056550 012702 100204 MOV OSC 1SSR:61T2,.R2 iSET UP EXPECTED 
020102 CMP - ARE THEY EQUAL 
3725 056556 001406 BEQ 1108 ;@R, IF STATUS IS GOOD (OK) 
3726 056560 005237 002214 INC FATFLG ;ERROR COUNT 
3730 056564 ERRHRD ERRNO, T34WTM,PKTSSR 1EOT NOT FOUND CUSE SHORTER TAPE?) 
056 104456 CSERHRD 
056566 001137 onD «607 
056570 061230 "WORD -T34WTM 
056572 012126 .WORD PKTSSR | 
3731 056574 110$:  CKLOOP ;LOOP IF SELECTED 
056574 TRAP —- CSCLP1 
3732 036576 013701 060520 MOV T34BFR+6,R1 PICK UP XSTO 
3733 056602 010102 MOV —s- R-1, R2 sSET UP EXPECTED 
3 052702 000001 BIS @81T0,R2 ;SET THE EOT BIT ON IN EXPECTED 
3735 056610 020102 CMP CORR ;WAS THE BIT ON 
056612 001406 BEQ ;8R, IF EOT WAS FOUND 
3737 056614 005237 002214 TNC FATFLG ;ERROR COUNT 
3741 056620 ERRHRO ERRNO, T34ETO, EXPREC }EOT BIT (XSTO) NOT SET 
056620 104456 TRAP — C#ERHRD 
056622 001140 WORD 608 
056624 7 "WORD T34ETO 
056626 015554 EXPREC 
3742 056630 1208: | CKLOOP ;LOOP IF SELECTED 
056630 104406 CSCLP1 
3743 056632 012737 141410 060610 MOV 0141410, T34PK3 SKIP TAPE MARK REVERSE Mex, CVC=1 COMMAND 
3744 056640 012737 000001 060612 MOV 01, 134W8 iSET NUMBER (1) OF TMS TO SKIP 


TEST 1 


3780 057004 


3794 057064 


060610 
000000 
016330 
000002 
000200 


002214 


002214 


060610 
060612 


- HARDWARE TEST 1-8 TEST MACRO M1115 
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1308: 


1408: 


1508: 


160%; 





14-JUN-84 


CKLOOP 


G14 


16:41 


@T34PK3,R4 


FATFLG 
ERRNO, T34STM,PKTSSR 


T34BFR+6,R1 

R1,R2 

@BITO,R2 

R1,R2 

140% 

FATFLG 

ERRNO, TS4E TN, EXPREC 


T34BFR+6,R1 

R1,R2 

#6IT15,R2 

R1,R2 

150% 

FATFLG 

ERRNO, T34 TMK ,EXPREC 


0140410, T34PKS 
#1, i ay 


@T34PK3, 
R4, TspB¢ RS ) 
»WAIT 


TSSRCRS), R1 
@SC!SSR!BIT2,R2 


160% 
FATFLG 
ERRNO, T34P0S ,PKTSSR 


SEQ 0175 


:R4 © POINTER TO PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

s6R, IF STATUS IS GOOD (OK) 


sERROR COUNT 
sSKIP TAPE MARK REV. ee Ls SET TSA 


CSERHRD 
TYORO 609 
-WORD T34STM 
-WORD PKTSSR 


sLOOP IF SELECTED 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

sBR, IF EOT WAS FOUND 


sERROR COUNT 
sEOT BIT (XSTO) NOT SET 


TRAP CsCLP1 


TRAP CSERHRD 
-WORD 610 
.WORD T34ETN 
.WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
sSET WE 


XPECTED 
sSET THE TMK BIT ON IN EXPECTED 


sERROR COUNT 
sEOT BIT CXSTO) NOT SET 


TRAP CSERHROD 
-WORD 611 
-WORD T34TMK 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLP1 


RAP 
sSPACE RECORDS REVERSE, sot, CvC=1 CMD 
SPACE ONE RECORD REVERSE 
sR4 = POINTER TO PACKET 
OMMANO 


sISSUE C 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

38R, IT MIGHT BE END OF TAPE 


sERROR COUNT 
sEOT NOT FOUND (USE wee tg’ 5: 


CSERRRD 
-WORD 612 
-WORD T34P0S 
-WORD PKTSSR 


sLOOP IF SELECTED 


H14 
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TEST 6: OPERATIONS AT EOT 
057064 104406 TRAP CSCLP1 
3795 057066 013701 060520 MOV T34BFR+6,R1 sPICK UP XSTO 
3796 057072 010102 MOV R1,R2 sSET UP EXPECTED 
3797 057074 052702 000001 BIS @BITO,R2 sSET THE EOT BIT ON IN EXPECTED 
3798 057100 020102 CMP R1,Re sWAS THE BIT ON 
3799 057102 001406 BEQ 63% s6R, IF EOT WAS FOUND 
3800 057104 005237 002214 INC FATFLG sERROR COUNT 
3804 057110 ERRHRD ERRNO, TS4ETN,EXPREC sEOT BIT (XSTO) NOT SET 
057110 104456 TRAP CSERHRD 
057112 001145 -WORD 613 
057114 061401 -WORD T34ETN 
057116 015554 -WORD EXPREC 
3805 057120 163%: CKLOOP sLOOP IF SELECTED 
057 044 TRAP CsCLP1 
3806 057122 0135701 060520 MOV T34BFR+6,R1 sPICK UP XSTO 
3807 057126 010102 MOV R1,R sSET UP EXPECTED 
3608 057130 042702 100000 BIC #6IT15,Re sCLEAR THE TMK BIT ON IN EXPECTED 
3809 057134 020102 CMP : sWAS THE BIT ON 
3810 057136 001406 BEQ 165% s6R, IF TMK WAS FOUND 
3811 057140 005237 002214 INC FATFLG sERROR COUNT 
38615 057144 ERRHRD ERRNO, TS4TMK ,EXPREC sEOT BIT (XSTO) NOT SET 
057144 104456 TRAP CSERHRO 
057146 001146 -WORD 614 
057150 061713 -WORD T34TMK 
0571 015554 -WORD EXPREC 
3816 057154 165%: CKLOOP sLOOP IF SELECTED 
057 104406 RAP CsCLP1 
3817 057156 012737 14041C 060610 MOV #140410, T34PK3 sSPACE RECORDS REVERSE, ACK, CvC=1 CMD 
3818 057164 012737 000001 060612 MOV 1, T3408 iSPACE ONE RECORD REVERSE 
3819 057172 012704 060610 MOV OTS4PK3 ,R4 sR4 = POINTER TO PACKET 
057176 010465 MOV R4, TSDBCRS) s ISSUE COMMAND 
3821 057202 004737 0163350 JSR »WALTF sWAIT FOR SSR TO SET 
05 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
3 0572 012702 000200 MOV SR, sSET UP EXPECTED 
3624 057216 020102 CMP R1,R2 sARE THEY EQUAL 
3825 057220 001406 BEQ 167% :BR, IT MIGHT BE END OF TAPE 
3826 057222 005237 002214 INC FATFLG sERROR COUNT 
3830 057226 ERRHRD ERRNO, T34P0S,PKTSSR sEOT NOT FOUND (USE SHORTER TAPE?) 
057226 104456 TRAP CSERHRD 
057230 001147 -WORD 615 
057232 -WORD T34P0S 
057234 012126 -WORD PKTSSR 
3831 057236 167%: CKLOOP sLOOP IF SELECTED 
057 TRAP CsCLP1 
3832 057240 913701 060520 MOV a aa R1 sPICK UP XSTO 
3833 057244 010102 MOV Re sSET UP EXPECTED 
3834 0357246 042702 000001 BIC *aiTo, Re iCLEAR THE EOT BIT ON IN EXPECTED 
3835 057252 020102 CMP R1,R2 sWAS THE BIT OFF 
3836 057254 001400 BEQ 1708 s8R, IF EOT WAS FOUND 
3837 057256 170%: CKLOOP sLOOP IF SELECTED 
057256 104406 TRAP CsCLP1 
3838 057260 912737 140010 060610 MOV #140010, T34PK3 sSPACE RECORDS FORWARD, ACK, CvC=1 
3839 057266 012737 900002 060612 MOV #2, T34W8 sSPACE TWO RECORDS 
3840 057274 012704 060610 MOV OT34PK3 ,R4 sR4 = POINTER TO PACKET 
3841 057300 010465 MOV R4, TSDOB(RS) sISSUE COMMAND 
38642 057304 004737 016350 JSR »WAITF sWAIT FOR SSR TO SET 
3843 057310 016501 MOV TSSRCRS),RL GET TSSR CONTENTS 


a ee ee 


TEST 1 
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3893 


TEST 


1-8 TEST MACRO M1113 


000200 


002214 


002214 


060610 
060612 


190: 


205%: 


2108: 


14 - JUN - 84 


CKLOOP 


114 
16:41 


@SSR ,R2 


190% 
FATFLG 
ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 
R1,R2 
@BITO,R2 
R1,R2 

200% 


FATFLG 
ERRNO, T34ETS ,EXPREC 


#140401, T34PK3 
34RB 


TSSRCRS),R1 

@SSR ,R2 

R1,R2 

205% 

FATFLG 

ERRNO, TS4RRE ,PKTSSR 


#140401 , T34PK3 
FREE , T34RB 

@T34PK3 ,R4 

R4, TSDBCRS) 

PC ,WAITF 
TSSRCRS),R1 

@SSR,R2 

R1,R2 

210% 

FATFLG 

ERRNO, TS4RRE ,PKTSSR 





SEQ 0177 


s;SET UP EXPECTED 
sARE THEY EQUAL 
;BR, IT MIGHT y: END OF TAPE 


sERROR COUNT 
sEOT NOT FOUND (USE pag iene § 


CSERHRD 
-WORD 616 
“WORD 134P0S 
.WORD PKTSSR 
;L00P IF SELECTED 
TRAP CsCLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
iSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
368R, IF EOT WAS FOUND 
sERROR COUNT 
sEOT BIT (XSTO) NOT SET 
T CSERHRD 
-WORD 617 
WORD T34ETS 
EXPREC 


sLOOP IF SELECTED 
TRAP CsCLP1 
READ REVERSE, aod atte 1 


:SET UP WRITE BUFFER ADDRESS 
iRa * POINTER TO PACKET 
COMMAND 


3BR, ONLY SSR IS SET 
sERROR COUNT 
sEOT NOT FOUND (USE Te eT? 


CSERHRD 
-WORD 618 
-WORD T34RRE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sR4 = POINTER TO PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;8R, IT MIGHT BE END OF TAPE 
COUNT 


;ERROR 
3;ECT NOT FOUND (USE SHORTER TAPE?) 
TRAP 4 


CSERHRD 
-WORD 619 
-WORD T34RRE 
-WORD PKTSSR 


;LOOP IF SELECTED 
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057540 104406 TRAP CSCLP1 

3894 057542 012737 140001 060610 MOV #140001, T34PK3 sREAD DATA, ACK, CvC=1 

3895 057550 013737 003116 060612 MOV FREE , T34RB sSET UP WRITE BUFFER ADDRESS 

3896 057556 012737 006654 060616 MOV 03500. , 734SZ sSET UP BUFFER SIZE (4K BYTES) 

3897 057564 012704 060610 MOV OT34PK3,R4 3R4 = POINTER TO PACKET 

3898 057570 010465 000000 MOV R4, TSDBCRS) sISSUE COMMAND 

3899 057574 004737 0163350 JSR sWAIT FOR SSR TO SET 

3900 057600 016501 000002 MOV TSSRCRS), Ri sGET TSSR CONTENTS 

3901 057604 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

3902 057610 020102 CMP R1,R2 s;ARE THEY EQUAL 

3903 057612 001406 BEQ 2308 ;BR, IT MIGHT BE END OF TAPE 

3904 057614 005237 002214 INC FATFLG sERROR COUNT 

3908 057620 ERRHRD ERRNO, T34RRE,PKTSSR sEOT NOT FOUND (USE ee TAPE?) 
057620 104456 TRAP CSERHRO 
057622 001154 ‘ 620 
057624 061016 -WORD T34RRE 
057626 012126 -WORD PKTSSR 

3909 057630 230%: CKLOOP sLOOP IF SELECTED 
057 1 TRAP CsCLP1 

3910 057632 012737 140001 060610 MOV #140001, T34PK3 sREAD DATA, ACK, CVvC=1 

911 057 013737 003116 060612 MOV FREE , T34RB ;SET UP WRITE BUFFER ADDRESS 

3912 057646 012737 006654 060616 MOV @3500. , T34SZ sSET UP BUFFER SIZE (4K BYTES) 

3913 057654 012704 060610 MOV OT34PK3,R4 3R4 = POINTER TO PACKET 

3914 057660 010465 MOV R4, TSOBCRS) s ISSUE COMMAND 

3915 057 004737 016330 JSR »WAITF sWAIT FOR SSR TO SET 

3916 057670 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

3917 057674 012702 000200 MOV SR ,R2 sSET UP EXPECTED 

3918 057700 920102 CMP R1,R2 sARE TrcY EQUAL 

3919 057702 001406 BEQ 235% ;8R, IT MIGHT BE END OF TAPE 
057704 005237 002214 INC FATFLG sERROR COUNT 

3924 057710 ERRHRD T34RRE , PKTSSR ;EOT NOT FOUND (USE SHORTER TAPE?) 
057710 104456 TRAP CSERHRD 
057712 001155 -WORD 621 
057714 061016 -WORD T34RRE 
057716 012126 .WORD PKTSSR 

3925 057720 235%: CKLOOP ;LOOP IF SELECTED 
057720 TRAP CsCLP1 

3926 057722 013701 060520 MOV T34BFR+6,R1 ;PICK UP xXSTO 

3927 057726 010102 MOV R1,R2 sSET UP EXPECTED 

3928 057730 052702 000001 BIS @BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 

3929 057734 020102 CMP R1,R2 sWAS THE BIT ON 

3930 057736 001406 8EQ 240% ;BR, IF EOT WAS FOUND 

3931 057740 005237 002214 INC FATFLG sERROR COUNT 

3935 057744 ERRHRD ERRNO, T34ETZ,EXPREC sEOT BIT CXSTO) NOT SET 
057744 104456 T CSERHRD 
057746 001156 -WORD 622 
057750 061552 -WORD T34ETZ 
057752 015554 -WORD EXPREC 

3936 057754 240%: CKLOOP sLOOP IF SELECTED 
057754 104406 TRAP CscLP 

3937 057756 012737 140410 060610 MOV #140410, T34PK3 s;SPACE RECORDS REVERSE, ACK, CVvC=1 CHO. 
057764 012737 000005 060612 MOV #5, T34RB sNUMBER OF RECORDS TO SPACE 

3939 057772 012708 060610 MOV @T34PK3 ,R4 iR4 = POINTER TO PACKET 

3940 057776 010465 MOV R4, TSDOBCRS) sISSUE COMMAND 

3941 060002 004737 0616350 JSR »WAITF ;WAIT FOR SSR TO SET 

3942 060006 016501 000002 MOV TSSRCRS), Ri sGET TSSR CONTENTS 

3943 060012 012702 000200 MOV SSR ,R2 ;SET UP EXPECTED 


ST 1 - HARDWARE TE 
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3944 060016 
3945 060020 
3946 060022 
3950 060026 

060026 


3993 060246 


ST 


002214 


002214 


141410 
000003 
060610 


000060 
176750 
016330 
000002 


000200 


060610 
060612 


060624 


1-8 TEST MACRO M1113 
EOT 


250%: 


2708: 


2803: 


285%: 


14 - JUN- 84 


CMP 
BEQ 


K14 


16:41 
R1,R2 
‘ 


FATFLG 
ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 
R1,R2 
@BITO,R2 
R1,R2 

260% 


FATFLG 
ERRNO, T34ETC,EXPREC 


#140010, T34PK3 
RB 


FLG 
ERRNO, T34ET ,PKTSSR 


T34BFR+6,R1 
R1,R2 
#BITO,R2 


260% 


#141410, T34PK3 
03, T34RB 
OTS4PK3,R4 


R4, TSOBCRS) 
#65000. , T34DLY 


PC ,WAITF 
TSSRCRS),R1 
@SSR, 


2 
250 


SEQ 0179 
s;ARE THEY EQUAL 
;B8R, IT MIGHT BE END OF TAPE 
sERROR COUNT 

sPOSITION COMMAND DION’T WORK 
TRAP CSERHROD 
-WORD 623 
.WORD T34P05S 
.WORD PKTSSR 

;LOOP IF SELECTED | 
TRAP CSCLP1 


;PICK UP xSTO 
;SET UP EXPECTED | 
;CLEAR THE EOT BIT ON IN EXPECTED 
;WAS THE BIT ON 

;6R, IF EOT WAS FOUND 


sERROR COUNT 
;EOT BIT (XSTO) NOT CLEAR 
TRAP 


CSERHRD 
«WORD 624 
-WORD T34ETC 
-WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


sSPACE RECORDS aa ACK. CvC=1 CMO. 
;NUMBER OF RECORDS TO SPACE 

iR4 * POINTER TO PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR 70 SET 


sERROR COUN 
sTSSR NOT CORRECT 


TRAP CSERHRD 
-WORD 62 
-WORD T34ET 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPl 
sPICK UP XSTO 
sSET UP EXPECTED 
SET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 
38R, IF EOT WAS FOUND 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSKIP FILE MARKS REVERSE ,ACK,CVC=1 COMMAND 
sNUMBER OF FILE MARKS 

iR4 * POINTER TO PACKET 

s ISSUE COMMAND 

SET UP DELAY COUNTER 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 


SR 
sWAIT ABOUT -25 SECONDS 
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012727 
000000 
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000250 
002116 
177772 
177756 


002214 


002214 


000017 


286: 


9998: 


R3 
FATFLG 
ERRNO, T34ET ,PKTSSR 


#BIT2,R1 


FATFLG 
ERRNO, T34ETC,EXPREC 


T34BFR+6,R1 

R1,R2 

@BIT1,R2 

R1,R2 

320% 

FATFLG 

ERRNO, TS4B0T , EXPREC 


FATFLG,@15. 
999% 

PC ,CKDROP 
PC, TSTLOOP 
163% 





SEQ 0180 


MOV tact 
-WORD O 
DEC eo 


BNE 
DEC “22¢ Pc) 
BNE .-20 


sBUMP COUNTER 

sBR, IF MORE TO COUNT 

sSET UP EXPECTED 

sARE THEY EQUAL 

3B8R, IT MIGHT BE Ly OF TAPE 
sDEC RECORD COUNTE 


sERROR COUNT 
sEOT NOT FOUND (USE spear pate & 


CSERHRD 
626 
T34ET 
PKTSSR 

s CHECK a at STATUS ALERT 

sPICK UP X 

sSET UP EXPECTED 

sCLEAR THE EOT BIT IN EXPECTED 

sWAS THE BIT ON 


BR, IF EOT WAS FOUND 


sERROR COUNT 
;€OT BIT (CXSTO) NOT CLEAR 
TRAP coues 


-WORD 62 
-WORD T34ETC 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 

sPICK UP XSTO 

sSET UP EXPECTED 

sSET THE BOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

38R, IF BOT WAS FOUND 

sERROR COUNT 

sEOT BIT (XSTO) NOT CLEAR 
TRAP CSERHRD 
-WORD 628 
«WORD T34B0T 
WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10062: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 


TEST 
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TEST 6: OPERATIONS AT EO 


000137 056022 


104432 
002662 


177777 


M14 
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JMP T34L00P 
163$: EXIT TST 


;LOCAL STORAGE FOR THIS TEST 


.*<,+10>€177770 
T34PACKET: 
; 100004 


T34DATA 
0 


WORD 
. WORD 
-WORD 8. 

T34DATA: 
-WORD T34BFR 
-WORD O 

WORD 10. 
WORD 0O 
WORD 


T34DSW: . 0 
T34BFR: .BLKW 25. 


. 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 

.*<,¢10>€177770 


T34PKe: 
-WORD 100006 
.WORL T34BF2 
-WORD O 
-WORD 6. 
T34PK3: 
-WORD 100005 
T34RB: 
T34WB: .WORD 0 
-WORD O 
T34SZ -WORD O 
-EVEN 
3 
T34RSZ: .WORD 0 
T34CNT: .WORD 0 
T340LY: .WORD 0 
3 
: 
T346F 2: 


T34WOR: .WORD 100405 
T34CON: .WORD 102005 
-WORD 177777 


SEQ 0181 


sEXECUTE AGAIN 

;ALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10061-. 


sCOMMAND PACKET FOR TEST 
s;WRITE CHARACTERISTICS COMMAND, WITH ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE 0 
MESSAGE BUFFER 


| 
| 
;WRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


;WRITE COMMAND, AND ACK 
sADORESS OF WRITE/READ BUFFER 
sSIZE OF BUFFER (EXTENT) 


sLARGEST TAPE RECORD IN BYTES 
s TAPE RECORD COUNTER 
sDELAY COUNTER 


;BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


sWRITE DATA (NEXT) 
sWRITE DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 
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OPERATIONS AT EOT 


TEST MACRO M1113 14-JUN-84 16:41 


SEQ 0182 


:¢ 
sLOCAL TEXT MESSAGES FOR TEST 


-ASCIZ 


‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 

‘WRITE TAPE MARK At EOT Failed To Set EOT Bit (XxSTO)’ 

‘READ Command At EOT Didn’''t Give Normal Termination (TSSR)’ 

‘Unable To Clear EOT Indication, (XSTO) Bit 0’ 

"REWIND Failed To Set BOT (XSTO) Bit’ 

‘WRITE TAPE MARK At EOT Feiled To Set Tape Stetus Alert’ 

"WRITE DATA At EOT Feiled To Set cat's Stetus Alert’ 

‘WRITE DATA At EOT ae To Set EOT Bit (xXSTO)’ 

‘SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (xSTO)' 

"READ DATA At EOT Foiled’ To Set EOT Bit CXSTO)' 

‘TSSR Incorrect After SKIP TAPE MASK REVERSE At EOT’ 

‘ POSITION Commend At EOT Onto Tape tiark Failed To Set TMK (XSTO)’ 
WRITE Commend Not Accepted’ 

OT Not Found In 65000 3.5K Writes, (Use Shorter Tape)’ 

"WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 


Ace: 
‘RAM Error, Correct Date Pettern Not In Ram’ 
‘TSSR Init. Failed After WRITE a 
‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
‘TSSR Not Correct After WRITE DATA mean SWB Bit Set’ 
‘TSSR Not Correct After WRITE DATA Command, 
‘CVC Set, Didn''t Reset VCK In Buffer’ 
‘TSBA Not Correct After WRITE DATA Command 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
-ASCIZ ‘Operations At EOT’ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


060644 124 123 123 T34P0S: 
060732 127 122 111 T34ETO: 
061016 122 105 101 : 
061107 125 156 141 T34ETC: 
061164 122 105 127 T34B0T: 
061230 127 122 111 TS4WTM: 
061317 127 122 111 T34ETe2: 
061401 127 122 111 T34ETN: 
1 123 120 101 TS4ETS: 
061552 122 105 101 T34ETZ: 
061630 124 123 123. T34STH: 
061713 120 117 123 T34TMK: 
13 127 122 111 T34SSR: 
105 117 124 TS4ET; 
062135 127 122 111 TS4E0T: 
062213 124 123 123. T34TH: 
062267 122 145 167 T34RWN: 
062336 122 101 115 TS4RNC: 
062411 124 123 123. T34AM3: 
062457 104 162 151 TS40FL: 
062532 124 123 123 T34W0D: 
062621 124 123 123 T34WOC: 
062723 103 126 103 T34VCK: 
062776 124 123 102 T34BA: 
127 122 111 T34wWSS: 
063137 117 160 145 TST34I0: 
3¢ 
; 
3 = 
063162 T34REST: 
063162 
063166 012701 060470 
063172 012721 100004 
063176 012721 060500 
3202 
063204 012721 000012 
063210 012721 060512 
063214 1 
063216 012721 000024 
063224 012711 000000 
063230 012702 000030 
3234 012762 177777 060512 64%: 
0.3242 005742 
063244 020227 000000 
063250 001371 
063252 000207 


~, THE REGISTERS 
@T34PACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 
@TS4DATA,(R1)+ sADORESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
tp aa ct sADDRESS OF MESSAGE BUFFER 
od 
2 heat sLENGTH OF MESSAGE BUFFER 
+ 
#0,(R1) s;SELECT DRIVE ZERO 
4., s;NUMBER OF LOCATIONS TO BE CLEARED 
0177777, T34BFR(R2) sALL ONES TO MESSAGE BUFFER 
(R2) sBUMP DOWN TO NEXT LOCATION 
R2,00 ;R2 AT ZERO YET 
64% sKEEP GOING UNTIL DONE 
PC ;RETURN 


Check For Tape Offline’ 


TEST 1 


TES’ 


012701 


060610 
100005 


- HARDWARE 1.6 TEST MACRO M1115 
Test 6: OPERATIONS AT E 


TRARTO; 


TS4R7S: 


. 


CLR 
i? 


14 -JUN-84 16:41 


@T34PK2 ,R1 
#100006 ,(#1)- 
@T34BF2,(R1)- 


SEQ 0183 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH Acre 
ADORESS OF DATA BLOCK 


ADORE SS 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


RE TURN 
sSAVE THE REGISTERS 
sSTART OF THE PACKET 


sWRITE TAPE. WITH ACK 
sADORESS OF asl BL OCK 


sEXTENDED ADORESS 
sSIZE OF DATA BLOCK 
sRE TURN 


10061: 
TRAP CseTs’ 


TEST 7: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF 
— CONTROLLER IS IN THE EXTENDED FEATURES MODE. 


COMMANDS ONLY AVAILABLE WHEN 
THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


@€PRT1, EPRTSW 


; 
sTEST 7, SUBTEST 1 


= o o & o 


WITH THE INTERRUP 
IMMEDIATE TERMINATION BUT NO INTERRUPT. 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


T?:: 
MESSAGE 
SSAGE TO —* TEST 


ATIONS 
sCLEAR TAPE RECORD COUNTER 


VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, ISSUED 
T ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST 


STATUS IN THE MESSAGE 


j 
_ eee 


TEST 
TEST 


4223 


063374 
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073114 


002116 
177772 
177756 
067472 
002214 


002174 
067320 
010742 


002214 


011074 


000002 
002214 


067472 


T3SLOOP : 


14-JUN-84 16:41 


late 


T3SOLY 

108 

FATFLG 

RO,R1 

ERRNO , SFIERR , SF IMSG 


UNITN, T350SW 
@TSSPACKET ,R 
PC,.WRTCHR 

25% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


PC ,REWIND 
30$ 


RO,R4 
TSSRCRS),R1 
FATFLG 


SEQ 01484 


BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T7.1: 


TRAP C$6SU8 

SET COMMAND PACKET 

sCLEAR INTERRUPT RECEIVED FLAG 

sSET WO COMMAND P 

sSET WP COMMAND PACKET 

sSET UP DELAY COUNTER 

sCLEAR COUNTER 

300 INITIALIZE ON CONTROLLER 

38R IF INIT WAS OK 

sDELAY ABOUT .25 SEC 
MOV 0250 (PC )- 
. WORD 0 
MOV LSOLY,(PC)- 
. WORD 0 
DEC -6( PC) 
BNE _-4 
DEC -22( PC) 
BNE .-20 

sBUMP COUNTE 


s6R, IF COUNTER NOT DONE 
sE QUNT 


s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSeEROF 


-WORD 701 
-WORD SFIERR 
-WORD SF IMSG 


sSET UP DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADORESS 
sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND oo OK 


sERROR C 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC “Ss 


RAP CSERHROD 
«WORD 702 
-WORD WRITMSG 
-WORD SFIMSG 


sLOOP IF SELECTED 
TRAP CsC.P1 


;CALL TAPE ~ ay A COMMAND 


sSET UP REWIND PACKET ADORESS 
GET TSSR FOR PRINTOUT 
sERROR COUNT 


TEST 1 - HARDWARE TEST 1- beerunrs MACRO M1113 


TEST ?: EXTENDED MODE F 


4306 063740 
4307 063746 


104456 
001277 


013737 


012737 


000024 
000400 067446 
003116 067442 


140005 067440 


000012 067472 


DIS 


14 -JUN-84 16:41 


ERRHRD ERRNO, TSSRWN,PKTSSR 


MOV TSSBFR+6,R1 
R2 


MOV Rl, 

BIS @B1IT1,R2 
R1,R2 

BEQ 40% 


403: CKLOOP 


MOV 256. T35SZ 
MOV FREE , 1 3508 


SEQ 0185 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 703 
-WORD T3SRWN 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
s00ES EXP «= REC'D 
sBR, IF EQUAL (OK) 
sERROR C 
3 TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
- WORD 704 
. WORD T3580T 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLP1 


OF RE 
sSET UP RECORD SIZE 
sADORESS OF WRITE BUFFER 


SWRITE DATA,ACK,CvC=*1 COMMAND 


é 
J SSHSSSASSHSSASSAASSHSSSSSSE SOSHSSEESESESE 


MOV #140005 , TSSPKS 
MOV @T3SPK3 ,R4 
50s: MOV R4, TSOBCRS 
JSR PC ,WAITF 
MOV TSSR(RS),R1 
MOV @SSR ,R2 
CMP 


R1,R2 
BEQ 608 
INC FATFLG 
ERRHRD ERRNO, TSSWDE .PKTSSR 


608: CKLOOP 


DEC R3 
BNE 50% 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
. WORD 705 
. WORD T35WOE 
.WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CsCLP1 
sBUMP RECORD COUNTER 
s8R, IF MORE RRECOROS TO COUNT 


$ SSSSSHASSSHSSSSESHSSSESSSSSESSSHHOHESESEESS 


; 
sWAIT FOR TAPE TO STOP ALL MOTION 


é 
§ SSSSSSESHSSHSSSHSSSSSSSEESSESHSHEHHHHEEESS 


MOV #10. ,T3S5OLY 
70%: DELAY 250 


sSET UP DELAY COUNTER 
sWAIT ABOUT .25 SEC 


ES 
TEST 


012727 
000000 
013727 
000000 


012737 


012727 


000250 
002116 
177772 
177756 
067472 


067320 
010742 


002214 


176750 
967466 


142012 
067440 
000000 
000002 
000200 


067466 
000001 


067451 
067450 


067472 


067440 


100%: 
110%: 


CKLOOP 


MOV 
CLR 


a 
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FATFLG 
ERRNO, T3SSSR,PKTSSR 


@TSSPACKET ,R4 
PC, WRTCHR 


100% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


#65000. , TSSOLY 
TSSCNT 


SEQ 0186 
MOV 9250, (PC)+ 
-WORD 0 
MOV LSOLY,(PC)- 
-WORD 0 
DEC -6(PC) 
BNE .- 
DEC -22(PC) 
BNE .-20 


sBUMP COUNTER DOWN 

;BR, IF MORE TO DELA 

s CHECK FOR ap FEATURES SW SWITCH 
1BR IF SWITCH IS 

sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw 
sWRITE SUBSYS MEM PACKET 

sISSUE COMMAND 

sWAIT FOR SSR 

s6R, IF NO ERROR 

sERROR, SERnOR TSSR 


RROR COUNT 
sTSSR NoT TCORRECT AFTER WRT. MISCELLANEOUS 
TRAP C#ERHRD 


706 
T35SSR 
PKTSSR 


CsCLP1 


SWITCH) 


. WORD 

- WORD 

WORD 
sLOOP IF SELECTED _ 
sSUBROUTINE NEEDS PACKET ADORESS 
s ISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 


sERROR COUNT 
s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC 4---y 


CSERHRD 
. WORD 7 
.WORD WRTMSG 
. WORD SF IMSG 
;SCOPE LOOP 
TRAP CSCLP1 


sSET UP DELAY COUNTER 
sDELAY COUNTER 


FCHSAHSEAHSHEHASSHSSHAAAKSSASHASRSHEHHAKERE 


; 
sREWIND IMED. INTERRUPT,ACK,CVC*1,IE=0 COMMAND 


é 
FSARASHAAGS Asser SHA Ah ae Keas He eaehoreaaoads 


1208: 


#142012, T3SPK3 
@T3SPK3 ,R4 

R4, TSOBCRS) 
TSSRCRS),R1 
@SSR,R1 


130% 
T3SCNT 
1 


sREWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND 
SET UP R& WITH PACKET ADORESS 


s ISSUE COMMAND 
iGET TSSR CONTENTS 
sCHECK FOR SSR SET 


ER 
sDELAY TO KEEP COUNTER DOWN 
MOV @1,(PC)-+ 


ab the: 
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064170 000000 . WORD 0 
064172 013727 002116 MOV LSOLY,(PC)- 
064176 000000 . WORC 0 
064200 005367 177772 DEC -60PC) 
064204 001375 BNE -4 
005367 177756 DEC -220PC) 
064212 001367 BNE -20 
4352 064214 005337 067472 NEC T3SOLY <a DEAD TIMER BUMP DOWN 
4353 064220 001352 BNE 120% F MORE TIME TO GO 
4354 064222 012702 000200 1308: MOV @SSR ,R2 SET UP EXPECTED 
4355 064226 020102 CMP R1,R2 sARE THEY EQUAL 
4356 064230 001406 BEQ 140% sBR, IF OK 
4357 064232 005237 002214 INC FATFLG sERROR COUNT 
4361 064236 ERRHRD ERRNO, TSSRWE ,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
064236 104456 TRAP CSERHRD 
064240 1 . WORD 708 
064242 072720 . WORD T3SRWE 
064244 012126 WORD PKTSSR 
4362 064246 140$: CKLOOP ;LOOP IF SELECTED 
064246 104406 TRAP CSCLP1 
4363 064250 005737 002216 TST INTRECV sCHECK FOR INTERRUPTS 
4364 064254 001410 BEQ 150% sBR, IF NO INTERRUPTS DETECTED 
4365 064256 016501 000002 MOV TSSRCRS),R1 ;GET TSSR STATUS FOR PRINTOUT 
4366 064262 005237 002214 INC FATFLG sERROR COUNT 
4370 064266 ERRHRD ERRNO, T3SINT,PKTSSR s INTERRUPT RECEIVED (BAD) 
064266 104456 TRAP CSERHRO 
064270 001305 . WORD 709 
064272 072531 T3SINT 
064274 012126 WORD PKTSSR 
4371 064276 150$: CKLOOP sLOOP IF SELECTED 
aste 064276 104406 TRAP CSCLPi 
4373 Per TT iti tii rir tiviriiriitii iii tititi ty 
4374 ; 
pe be sNOW CHECK FOR THE MOTION BITS SET 
H 
po a fF PSOOHESEHEHESEHSSAHESESEEEESEHESEEEEEEEES 
4378 
4379 064300 013701 067350 MOV T35BFR+6,R1 sPICK UP XSTO 
4380 064304 010102 MOV R1,R2 sSET UP EXPECTED 
4381 064306 052702 000200 BIS BIT7,R2 iSET MOT BIT IN EXPECTED 
43862 064312 020102 CMP R1,R2 sD0ES EXP = REC'D 
4363 064314 001406 BEQ ;BR, IF EQUAL (OK) 
4364 064316 005237 002214 INC FATFLG sERROR COUNT 
4388 322 ERRHRD ERRNO, T3SMOT,EXPREC sTAPE NOT AT BOT AFTER REWIND 
064322 104456 TRAP CSERHRD 
064324 001306 . WORD 710 
064326 072433 - WORD T3SMOT 
064330 015554 -WORD EXPREC 
$389 064332 160$: CKLOOP ;LOOP IF SELECTED 
064332 TRAP CsCLP1 
4390 064334 013701 067354 MOV T35SBFR+12,R1 sPICK UP XST2 
4391 064 010102 MOV R1,R2 sSET UP EXPECTED 
4392 064342 052702 100000 BIS #61IT15,R2 sSET OPM BIT IN EXPECTED 
4393 064 020102 CMP 1,R2 s00ES EXP = REC'D 
4394 064350 001 BEQ 170$ ;BR, IF EQUAL (OK) 
4395 964352 005237 002214 INC FATFLG sERROR COUNT 


G15 


i a 
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TEST 7: EXTENDED MODE FEATURES 
4399 064356 ERRHRD ERRNO, 1T350PM,EXPREC ;0PM BIT NOT SET 
064356 104456 TRAP CSERHROD 
064360 001507 -WORD 711 
064362 072622 .WORD 1350PM 
064364 015554 -WORD EXPREC 
4400 064366 170$: CKLOOP sLOOP IF SELECTED 
064366 104406 TRAP CsCLPl1 
4401 064370 012737 000027 067472 MOV 623. ,T3SDLY ;SET UP DELAY COUNTER 
4402 064376 175%: DELAY 250 sSTART DELAY 
064376 012727 000250 MOV 0250 ,(PC)-+ 
064402 000000 -WORD O 
013727 002116 MOV LSOLY,(PC)- 
064410 000000 -WORD 0 
064412 7 177772 DEC hee PC) 
064416 001375 BNE 
064420 005367 177756 DEC "22cec ) 
064424 001367 BNE .-20 
4403 064426 005337 067472 DEC T3SOLY sBUMP DELAY goes 
4404 064432 001361 BNE 175% :BR, IF MORE DELA 
4405 064434 ENDSUB 
064434 L10064: 
064434 3 TRAP CsESUB 
064436 023727 002214 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
4407 064444 103402 BLO 999% ;BR, IF LESS THAN 25 
4408 064446 004737 017262 JSR PC ,.CKDROP :TRY TO OROP THE UNIT 
4409 064452 999%: 
4410 3¢ 
4411 ; 
ory | sTEST 7: SUBTEST 2 
; 
4414 3 WITH THE INTERRUPT ENABLE ae BIT SET (1), CAUSES ALMOST 
4415 $ IMMEDIATE TERMINATION AND AN INTERRUPT. STATUS IN THE MESSAGE 
4416 ’ BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
eels F IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 
b 
4419 ; 
4420 ; 
4421 ; 
4422 ; 
4423 ; 
4424 ; 
4425 t- 
4426 064452 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
064452 T7.2: 
064452 104402 TRAP CsBSUB 
4427 064454 SETPRI #PRIOO sENABLE INTERRUPTS. 
064454 012700 000000 MOV @PRIOO,RO 
064460 104441 TRAP C$SPRI 
4428 064462 004737 073114 JSR PC, T3SREST T COMMAND PACKET 
4429 005037 002216 CLR INTRECV + TEAR INTERRUPT RECEIVED FLAG 
4430 064472 004737 073206 JSR PC, T352T2 sSET UP OTHER COMMAND PACKET 
4431 064476 004737 073250 JSR PC, T3SRTS 3SET UP OTHER COMMAND PACKET 
4432 064502 012737 176750 067472 MOV #65000. , TSSOLY sSET UP DELAY COUNTER 
4433 064510 005037 7466 CLR T3SCNT sCLEAR COUNTER 
4434 064514 004737 016054 10%: JSR PC, SOF INIT 300 INITIALIZE = CONTROLLER 
4435 064520 103426 BcS 20% :8R IF INIT WAS OK 
4436 064522 DELAY 250 sDELAY ABOUT .25 SEC 


H15 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 14-JUN-84 16:41 SEQ 0189 
TEST 7: EXTENDED MODE FEATURES 

064522 012727 000250 MOV #250 ,(PC)+ 
064526 000000 -WORD O 
064530 013727 002116 MOV LSOLY,(PC)+ 
064534 000000 -WORD 0 
064536 005367 177772 DEC - PC) 
664542 001375 BNE 
064544 005367 177756 DEC “22¢ PC) 
064550 001367 BNE .-20 

4437 064552 005337 067472 DEC T3SOLY sBUMP COUNTER 

4438 064556 001556 BNE 10$ sBR, IF po NOT DONE 

4439 064560 37 002214 INC FATFLG OUNT 

4443 064564 010001 MOV RO,R1 s CONTENTS OF TSSR REGISTER 

4444 064566 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
064566 104455 TRAP CSERDF 
064570 001310 -WORD 712 
064572 -WORD SFIERR 
064574 012114 -WORD SFIMSG 

4445 064576 013737 002174 067340 20%: MOV UNITN, T3SOSW sSET UP DRIVE NUMBER 

4446 012704 067320 MOV @T3SPACKET ,R4 sSUBROUTINE NEEDS PACKET 

4447 064610 004737 010742 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

4448 064614 103407 BCS 25% sBR, IF COMMAND ISSUED Ox 

4449 064616 005237 002214 INC FATFLG € COUNT 

4453 064622 010001 MOV RO,R1 mit CONTENT S OF TSSR 

4454 064624 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC — 
064624 104456 CSERHRD 
064626 001311 THORO 713 
064630 -WORD WRTMSG 
064632 012114 -WORD SFIMSG 

4455 064634 25%: CKLOOP ;LOOP IF SELECTED 
064634 104406 TRAP CsCLP1 

4456 064636 004737 011074 JSR PC ,REWIND sCALL TAPE ay A COMMAND 

4457 064642 103411 BCS 9 3BR, IF NO PROBLEM 

44358 064644 010004 MOV sSET UP REWIND PACKET ADDRESS 

4459 064646 016501 000002 MOV TSSRCRS), Ri sGET TSSR CONTENTS 

4460 064652 37 002214 INC FATFLG sERROR COUNT 

4464 064656 ERRHRD ERRNO, TSSRWN,PKTSSR sREWIND NOT ACCEPTED 
064656 104456 TRAP CSERHRD 
064660 001312 -WORD 714 
064662 070574 -WORD T3SRWN 
064664 012126 .WORD PKTSSR 

4465 064666 30$: CKLOOP sLOOP IF SELECTED 
064666 TRAP CSCLP1 

4466 064670 015701 067350 MOV T3S5BFR+6,R1 sPICK UP XSTO 

4467 064674 010102 MOV R1,R2 sSET UP EXPECTED 

4468 064676 052702 000002 BIS eeiT1, Re sSET BOT BIT IN EXPECTED 

4469 064702 020102 CMP i, sDOES EXP = REC'D 

4470 064704 001406 BEQ 40% sBR, IF EQUAL (OK) 

4471 064706 005237 002214 INC FATFLG sERROR COUNT 

4475 064712 ERRHRD ERRNO, TSSB0T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
064712 1044 TRAP CSERHRD 
064714 001313 -WORD 715 
064716 070270 -WORD T3SBOT 
064720 015554 -WORD EXPREC 

4476 064722 40%: CKLOOP sLOOP IF SELECTED 
064722 104406 TRAP CsCLP1 

4477 064724 012703 000024 MOV #20. ,R3 sNUMBER OF RECORDS 

4478 064730 012737 000400 067446 MOV #256. ,T35SZ ;SET UP RECORD SIZE 


TEST 1 
TEST 


064736 


ef 





ee 


- HARDWARE TEST 
7: EXTENDED MODE 


013737 


012737 


012737 
012727 
000000 
013727 
000000 


1-8 TEST MACRO M1113 
FEATURES 


003116 


140005 
067440 


000000 
016330 
000002 
000200 


002214 


000012 
000250 
002116 
177772 
177756 
067472 


067442 


067440 


067472 


067451 
067450 


MOV 


L15 


14-JUN-84 16:41 


FREE, T3SWB 


{SHAHN SSAHSSHESEHOESHAEEHEHSESHESEEEEES 


; 
s;WRITE DATA,ACK,CVC=1 COMMAND 


J SSHRASASSSSSSHSHSSSHHHSHASSHEEEHEEEESEEESD 


50$: 


INC 
ERRHRD 


6C$: CKLOOP 


#140005, T3SPK3 
TSSR(RS),R1 
@SSR ,R2 

R1,R2 

60$ 


FATFLG 
ERRNO, TSSWDE , PKTSSR 


{ SSASASESSHSHSSAASSHASSSSEAESESEEAKEHEESEEED 


3 
sWAIT FOR TAPE TO STOP ALL MOTION 


; 
J SSSSAASSHASASSASSSESASSESSESEHESESEEEKEEEES 


MOV 
70%: DELAY 


INC 
ERRHRD 


#10.,T3SOLY 
250 


T3SOLY 
70% 
EXTFEA 


110$ 

#200, T358S1 
#10, T358S0 
@TSSPK2 ,R4 
R4, TSOBCRS) 
PC,CHKTSSR 
90% 


RO,R1 
FATFLG 
ERRNO, T3SSSR,PKTSSR 


;ADDRESS OF WRITE BUFFER 

sWRITE DATA,ACK,CVC=1 COMMAND 

;SET UP R44 WITH PACKET ADDRESS 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

sERROR COUNT 

s;TSSR INCORRECT AFTER WRITE DATA 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 

;SET UP DELAY COUNTER 

sWAIT ABOUT .25 SEC 
MOV 
. WORD 
MOV 
DEC 
BNE 
DEC 
BNE 

sBUMP COUNTER DOWN 

;8R, IF MORE TO DELA 

sCHECK FOR ole aye FEATURES SW 


s8R IF SWITCH I 


SEQ 0190 


CSCLP1 


#250. (PC)« 
 ataiaipetee 
-6(PC) 

, a8 

-22(PC) 
.-20 


SWITCH 


sWRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION A (TURN ON EXTFEA Hw 


sWRITE SUBSYS MEM PACKET 
OMMAND 


s ISSUE C 

sWAIT FOR SSR 
;BR, IF NO ERROR 
sERROR, — TSSR 


HW SWITCH) 


sERROR COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CsERHRD 


- WORD 
. WORD 


717 
T3SSSR 


Se Oi et eS IO PU BI Se ae aI 
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012126 
104406 


012114 


104406 
012737 
005037 


012737 


000000 
013727 
000000 


067320 
010742 


002214 


176750 
067466 


142212 
067440 


000000 
000002 
000200 
067466 
000001 
002116 
177772 
177756 
067472 
000200 


002214 


067472 


067440 


- HARDWARE TEST 1-8 TEST MACRO M1115 
7: EXTENDED MODE FEATURES 


90$: 


100$: 
110$: 


14-JUN-84 16:41 


OTSSPACKET ,R4 
PC ,WRTCHR 


100% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


5000. 


06 » TSSOLY 
T3SCNT 


SEQ 0191 


PKTSSR 
CSCLP1 


sLOOP IF SELECTED 


TRAP 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUVE WRITE CHARACTERISTICS 
:BR, IF CONOR” —™ OK 


OUN 
s SAVE CONTENTS OF TSSR 
| WRITE CHARACTERISTISC iy 


CSERHRD 
-WORD 718 
-WORD WRTMSG 
-WORD SFIMSG 
SCOPE LOOP 
TRAP CSCLP1 
sSET UP DELAY COUNTER 
sDELAY COUNTER 


J SASSSAHASASSSSSSSHHSEHHSEEHEHAEHHESEEEEESD 


;REWIND IMMEDIATE, ACK,CVC*1,IE=1 COMMAND 


3 
REAR ALHRKHEKSEEROOAKREHREH HAD IHK HASSE HH 


130$: 


1408: 


#142232, T3SPK3 
@T3SPK3 ,R4 
R4, TSOBCRS) 
TSSRCRS),R1 


1303 
TSSCNT 


FATFLG 
ERRNO, TSSRWE , PKTSSR 


INTRECV 
150% 


TSSRCRS),R1 
FATFLG 


sREWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
3;GET iy = ty 
;CHECK F 


3BR, WHEN SSR IS SET 
sBUMP THE CYCLE COUNTER 
s;DELAY TO KEEP COUNTER an 


Vv #1,(PC)-> 

-WORD O 
MOV LSOLY,(PC)+ 
.WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

sDROP DEAD TIMER BUMP DOWN 

;B8R, IF MORE TIME TO GO 

:SET UP EXPECTED 

sARE THEY EQUAL 

;BR, IF OK 

sERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 719 
.WORD T3SRWE 
.WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CSCLP1 
sCHECK FOR INTERRUPTS 
;8R, IF INTERRUPTS DETECTED 
:;GET TSSR STATUS FOR PRINTOUT 
sERROR COUNT 





TEST 1 
TEST 


4572 065346 
065346 


013701 


104406 
012737 


000000 
013727 
000000 


FEATURE 5 


067354 
100000 


002214 


000027 
000250 
002116 
177772 
177756 
067472 


067472 


002214 000017 


- HARDWARE TEST 1-6 TEST MACRO M1113 
"¢, EXTENDED MODE 


150$: 


14- JUN-84 


ERRHRD 


CKLOOP 


oe 
16:41 


ERRNO, TSSNIN,PKTSSR 


; INTERRUPT NOT RECEIVED (BAD) 
TRAP 
. WORD 
. WORD 
. WORD 


TRAP 


sLOOP IF SELECTED 


FRAAAAHRAKHESSSEHEKESESHESHESEEEHEEEEEEEES 


; 
s;NOW CHECK FOR THE MOTION BITS SET 


Hy 
J SMSAASAAHRHESSHSSSSHESHHESEHESEEEEKEKEEEESD 


1708: 


175$: 


DEC 
BNE 
ENOSUB 


CMP 
BLO 


Ne ~Apatass 


LG 
ERRNO, TSSMOT , EXPREC 


T356FR+12,R1 

R1,R2 

eeiT15, R2 
1,R2 

T708 


FATFLG 
ERRNO, T3SOPM, EXPREC 


#23. ,T3SOLY 
250 


T3SOLY 
175% 


FATFLG,@15. 
999% 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET MOT BIT IN EXPECTED 

;DOES EXP = REC'D 

BR, IF EQUAL (OK) 
sERROR COUNT 


;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 
sPICK UP xST2 
sSET UP EXPECT 


ED 

sSET OPM BIT IN EXPECTED 

sD0ES EXP + REC'D 

BR, IF EQUAL (OK) 
sERROR COUNT 

:;0PM BIT NOT SET 


TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
RAP 
;SET UP DELAY COUNTER 
;START DELAY 
MOV 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
;BUMP DELAY COUNTER 
;BR, IF MORE DELAY 
L10065: 
TRAP 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 


SEQ 0192 


CsCLP1 


CsCLP1 


#250,(PC)« 
LADLY.(PC)« 
-6(PC) 

.-4 

-22¢PC) 
.-20 


CsESUB 





a a a + ee eee 


Lis 
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TEST ™ EXTENDED MODE FEATURES 

4610 065526 004737 017262 JSR PC,CKDROP sTRY TO OROP THE UNIT 

4611 065532 999%: 

4612 i? 

4613 F 

4614 ;TEST 7, SUBTEST 3 

4615 3 

4616 F VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ISSUED 

4617 3 IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 

4618 F INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER 

4619 : STATUS. FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT. 

4620 3 THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 

4621 3 TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 

4622 3 THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 

4623 ; MOT=1 AND OPM=1 IN THE MESSAGE BUFFER. AFTER A DELAY LONG 

4624 3 ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 

4625 3 REST, GET STATUS IS AGAIN on AND THE STATUS CHECKED; BOTH 

4626 3 MOT ANO OPM SHOULD BE CLEAR 

4627 ; 

4628 3 

4629 3 

4630 H 

4631 3° 

4632 065532 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
065532 77.3: 
065532 104402 TRAP C$B8SUB8 

4633 065534 004737 073114 JSR PC, T3SREST sSET COMMAND PACKET 

4634 065540 004737 073206 JSR PC, T35SRT2 sSET UP OTHER COMMAND PACKET 

4635 065544 004737 073250 JSR PC, T3SRT3 ;SET UP OTHER COMMAND PACKET 

4636 065550 004737 016054 JSR »SOFINIT :00 INITIALIZE ON CONTROLLER 

4637 065554 103407 BCS 20% ;6R IF INIT WAS OK 

4638 065556 005237 002214 INC FATFLG sERROR COUNT 

4642 065 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 

4643 065564 ERRDOF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
065564 104455 TRAP CSERODF 

5566 001323 . WORD 723 

065570 00 . WORD SFIERR 
065572 012114 . WORD SF IMSG 
065574 013737 002174 067340 20%: MOV UNITN, T350SW ;SET UP UNIT NUMBER IN PACKET 

4645 06 012704 067320 MOV @T3SPACKET, RS sSUBROUTINE NEEDS PACKET ADDRESS 

4646 065606 004737 010742 JSR PC,WRTICHR STSSUE WRITE CHARACTERISTICS 

4647 065612 103407 bcs 23% ;BR, IF COMMAND ISSUED OK 
065614 005237 002214 INC FATFLG sERROR “eo 

4652 06 010001 MOV RO,R1 : SAVE CONTENTS OF TSSR 

4653 065622 ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC => 
065622 104456 CSERHRD 
065624 001324 TWORD 724 
065626 005052 .WORD WRTMSG 
065630 012114 . WORD SF IMSG 

4654 065632 23%: CKLOOP ;LOOP IF SELECTED 
065632 104406 TRAP CSCLP1 

4655 065634 004737 011074 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

4656 065640 103411 BCS 30% ;8R, IF NO PROBLEM 

4657 065642 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 

4658 065644 016501 000002 MOV TSSRCRS),R1 sGET CONTENTS FOR CALL 

4659 065650 37 002214 INC FATFLG sERROR COUNT 

4663 065654 ERRHRD ERRNO, T3SRWN,PKTSSR sREWINOD NOT ACCEPTED 
0656 104456 TRAP CSERHRD 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 SEQ 0194 
TEST 7: EXTENDED MODE FEATURES 
065656 001325 . WORD 725 
065660 070574 . WORD T35RWN 
065662 012126 . WORD PKTSSR 
4664 065664 30$: CKLOOP ;LOOP IF SELECTED | 
065664 104406 TRAP CSCLP1 
4665 065666 013701 067350 MOV T356FR+6,R1 sPICK UP XSTO | 
4666 065672 010102 MOV R1,R2 ;SET UP EXPECTED 
4667 065674 052702 000002 BIS BIT1,R2 ;SET BOT BIT IN EXPECTED 
4668 065700 020102 CMP R1,R2 sD0ES EXP = REC'D 
4669 065702 001406 BEQ 40$ :BR, IF EQUAL (OK) 
4670 065704 005237 002214 INC FATFLG sERROR COUNT 
4674 065710 ERRHRD ERRNO, TSSBOT ,EXPREC ;TAPE NOT AT BOT AFTER REWIND | 
065710 104456 TRAP CSERHRD 
065712 001326 . WORD 726 
065714 070270 . WORD T3580T 
065716 015554 . WORD EXPREC 
4675 065720 40$: CKLOOP ;LOOP IF SELECTED 
065720 104406 TRAP CS$CLP1 
4676 065722 012703 000024 MOV 420. ,R3 :STARTING RECORD SIZE 
eh 065726 013737 003116 067442 MOV FREE , T3SWB ;STARTING WRITE BUFFER ADDRESS 
4679 FRR EAREAREEHEAEEAEEEESERERESEEEDEES 
4680 ; 
aean ;sWRITE DATA,CVC=1,ACK COMMAND 
3 
4683 FPRASAAAAAEAASESHSESESEKSEEEEHKSEREREEEAEEEEES 
4684 
4685 065734 012737 140005 067440 653: MOV #140005, T35PK3 ;WRITE DATA,CVC=1.,ACK COMMAND 
4686 065742 012704 067440 MOV OT35PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
4687 065746 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 
4688 065750 004737 017502 JSR PC,FILLMEM ;FILL MEMORY WITH RECORD SIZE 
4689 065754 010337 067446 MOV R3,735SZ ;SET UP RECORD SIZE IN PACKET 
4690 065760 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 
4691 065764 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4692 065770 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
4693 065774 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
4694 066000 020102 CMP R1,R2 ;ARE THEY EQUAL 
4695 066002 001406 BEG 80$ ;BR, IF OK 
4696 066004 005237 002214 INC FATFLG ;ERROR COUNT 
4700 066010 ERRHRD ERRNO, T3SWOC,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
066010 104456 TRAP CSERHRD 
066012 001327 . WORD 727 
066014 071130 . WORD T35WOC 
066016 012126 . WORD PKTSSR 
4701 066020 80$: CKLOOP ;LOOP IF SELECTED 
aro2 066020 104406 TRAP CSCLP) 
pote FERESSEEEAESEESEESSEESEERSESEEEEESEEEEEEEE ED 
4 3 
aoe ;WRITE DATA RETRY,CVC=1,ACK COMMAND 
4707 5 $O66606664606064600606066006664660006006040088 
4708 
4709 066022 012737 141005 067440 MOV #141005, T35PK3 ;WRITE DATA RETRY,CVC=1,ACK COMMAND 
4710 065030 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
4711 066034 004737 016330 JSR PC ,WAILTF sWAIT FOR SSR TO SET 


4712 066040 016501 000002 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
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4713 066044 
4714 066050 
4715 066052 
4716 066054 
4720 066060 


012702 


072175 


104406 
012703 
013737 


012737 


016501 
012702 


1-8 TEST MACRO M1113 
FEATURES 


000200 


002214 


000052 
011074 


000002 
002214 


000024 
003116 


14 - JUN - 84 


2308: 


CKLOOP 


MOV 
067442 MOV 


2403: 


N15 


16:41 


@SSR ,Re 

R1,R2 

90$ 

FATFLG 

ERRNO, T3SWRF ,PKTSSR 


(R3)+ 
R3,042. 


65$ 

PC ,REWIND 

230% 

RO,R1 

TSSRCRS),R1 

FATFL 

ERRNO, T3SRWN, EXPREC 


T3SBFR+6,R1 
R1,R2 
#B1IT1,R2 
R1,R2 


FATFLG 
ERRNO, TSSBOT , EXPREC 


#20. ,.R3 
FREE , T3SRB 


;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF VERA , 


OR COUN 
;TSSR INCORRECT AFTER was 1 io” cane 


;LOOP IF SELECTED _ 
sBUMP RECORD = COUNTER 


sAT 42 SIZE YET 
;BR, MORE RECORDS TO WRITE 
SCALL TAPE REWIND COMMAND 
:BR, IF NO PROBLEM 
sSAVE TSSR 
sGET TSSR CONTENTS 

sERROR COUNT 
sREWiWO NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

BR, IF EQUAL (OK) 


sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


f SSSHEKSESSSESSSESESSSESSESSESESSESSEAEEKESEEEES 


; 
sREAD DATA,ACK COMMAND 


. 
{ SSSESHERSERSEKEAESSESESESEESESESESESALSEASEKEESE 


067440 265%: MOV 


#100001 , T3SPK3 
OT3SPK3,R4 
0177777,RO 


sREAD DATA,ACK COMMAND 
;SET UP R4 WITH PACKET 


SEQ 0195 


CsCLP1 


CSCLP1 


CS#ERHRD 
730 


T3580T 
EXPREC 


CsCLP1 


ADORESS 
;SET PATTERN IN CORRECT REGISTER 


sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 


sISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 


T 


- MARDWARE TEST 


066374 
066374 


est 1 
TEST 7; EXTENDED MODE 


020102 
001406 
005237 


1-8 TEST MACRO M1113 


FEATURES 


002214 


003116 


002214 


2608: 


2653: 


2908: 


3008: 
3308: 


002214 000017 


017262 


999%: 


14-JUN-84 16:41 


3 


JSR 


R1,R2 


260% 
FATFLG 
ERRNO, TSSROF ,PKTSSR 


LG 
ERRNO, TSSOTA,EXPREC 


FATFLG,@i5. 
999% 
PC ,CKDROP 


; 
sTEST 7, SUBTEST 4 


VERIFIES THAT A 


A TAPE-MOTION 


SEG OlW 
s;ARE THEY EQUAL 
3;BR, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 731 
.WORD T3SROF 
WORD PKTSSP 


sLOOP IF SELECTED 


sGET BUFFER ADORESS 

sGET RECORD SIZE 

sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC IN BUFFER 
sDATA WRITTEN © READ 


TRAP CSCLPl 


sSET UP EXPECTED 


sERROR COUNT 
sDATA IN BUFFER NOT CORRECT 
TRAP — 


. WORD 
.WORD  TSSOTA 
-WORD EXPREC 


;LOOP IF SELECTED 
sBUMP TO NEXT ADDRESS 


TRAP CsCLPi 


38R, IF NOT DONE YET (MORE READS) 
sLOOP IF SELECTED 
TRAP CsCLPi 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10066: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
s8R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


COMMAND (READ, WRITE, P at 


ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND 
IMMEDIATE INTERRUPT C I 
THEN EXECUTES PROPERLY. 


“QUEVED” BY THE CONTROLLER AND 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
77.4; 





TEST 
TEST 


1 - HARDWARE TEST 
7: EXTENDED MODE 


000000 
013727 
000000 


1 6 TEST MACRO M1115 
FEATURES 


073114 


002116 
177772 
177756 
067472 
002214 


320 
010742 
002214 


011074 
000002 
002214 


067472 


108: 


067340 20%: 


23%: 


14-JUN-84 16:41 


PC, TSSREST 


TSSOLY 

10% 

FATFLG 

RO,R1 

ERRNO , SFIERR , SF IMSG 


UNITN, T3SOSW 
@TSSPACKET ,R4 
PC .WRTCHR 


RO, 
ERRNO , WRTMSG , SF IMSG 


PC ,REWIND 
30% 
ee Ri 


FATFLG 
ERRNO, TSSRWN, OKTSSR 


T35BFR+6,R1 

R1,R2 

#6IT1,R2 

R1,R2 

40% 

FATFLG 

ERRNO, TSSBOT ,EXPREC 


TRAP 
sSET COMMAND PACKE 
1SET UP OTHER COPRIAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 
:00 agh le os CONTROLLER 
s6R IF INIT WA 
sDELAY ABOUT "35 SEC 


sBUPP COUN 
s6R, IF COUNTER NOT DONE 
sERROR COUNT 


s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS vo & ~ 


+ UP UNIT (ORIVE) 


SEQ 0197 


C$6SUB 


0250 ,(PC)+ 

bot (8C). 
"6¢C) 
“2acee) 
-20 


NUMBER 
INE NEEDS PACKET ADORESS 


1 ISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND —— OK 


sERROR C 
s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 

sGET TSSR CONTENTS 

sGET PACKET ADDRESS 
sERROR COUNT 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 

;SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


sERROR COUNT 
; TAPE NOT AT BOT AFTER REWINO 


CSERHRD 
734 


WRTMSG 
SF IMSG 


CsCLP1 


CSsCLPl 





TEST 1 - HARDWARE TESi 
TEST ?: EXTENDED MODE FEATURES 


066616 104456 
066620 001540 
066622 070270 
015554 
066626 104406 


4860 066630 012703 000024 
4861 066634 013737 003116 


4869 066642 012757 atte 


4905 066776 
104406 
4906 067000 005723 


067442 


067440 


067440 


D16 


1-8 TEST MACRO M1113 14-JUN-84 16:4) 


40$: CKLOOP 


MOV #20. ,R3 
MOV FREE , T3Sw8 


SEQ 0198 
TRAP CSERHRD 
-WORD 736 
-WORD T3560T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP CSCLP1 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J SOHSSSSSSSHESSHASSHSHSSSSSSEHESEHHHOEHEEEEE 


; 
sWRITE DATA,CVC*1,ACK COMMAND 


653: MOV #140005, T3SPK3 
MOV @TSSPKS RO 
MOV R3,RO 
JSR PC, .FILLMEM 
MOV R3,135SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSACRS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 808 

FATFLG 


INC 
ERRHRD ERRNO, TSSWOC ,PKTSSR 


60$: CKLOOP 


eet gtge gh COMMAND 
T UP_R4 WITH PACKET 


ADORE SS 
iSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

OMMAND 


s ISSUE C 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


3BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
. WORD 737 
. WORD T35WOC 
WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CsCLP1 


{ SSSHSSSSSSSSSHSSSSSSSSSSSSSSSSHSHESSEEEE 


H 
sWRITE DATA RETRY, ACK, SWB=1 COMMAND 


: 
{ SSSHOSSSSESSSSSSSSSSSHSSSSASSSSESSSESESEEES 


MOV #111005, T3SPKS 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

cup R1,R2 

BEQ 


908 
INC FATFLG 
ERRHRO ERRNO, TSSWRF ,EXPREC 


TsT (R3)> , 


sWRITE DATA RETRY, ACK,SWB=1 COMMAND 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 


:BR, IF 
sERROR COUNT 
sTSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
. WORD 738 
.WORD T3SWRF 
WORD EXPREC 


sLOOP IF SELECTED 


AP CsCLP1 
sBUMP RECORD SIZE COUNTER 


TEST 


- HARDWARE 
TEST ee EXTENDED MODE 


TEST 


104406 
012703 
013737 


1-8 TEST MACRO M1113 14-JUN-84 16:41 


FEATURES 


000052 
011074 
000002 
002214 


000024 
003116 


100001 
067440 

067446 
000000 
016320 
000002 


000200 


002214 


003116 
000024 


CMP R3,042, sAT 42 SIZE YET 
BNE 65% sBR, IF MORE RECORDS TO WRITE 
JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 230% sBR, IF NO PROBLEM 
MOV a Ri iGET TSSR CONTENTS 
MOV RO sGET PACKET ADDRESS 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, TSSRWN,PKTSSR sREWIND NOT ACCEPTED - 
- WORD 
. WORD 
230%: CKLOOP sLOOP IF SELECTED _— 
MOV T3SBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #BIT1,R2 iSET BOT GIT IN EXPECTED 
CMP R1,R2 sDOES EXP = REC'D 
BEQ 2403 sBR, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T3580T ,EXPREC ;TAPE NOT AT BOT AFTER — 
- WORD 
- WORD 
. WORD 
240%: CKLOOP ;LOOP IF SELECTED mee 
MOV #20. ,R3 sSTARTING RECORD SIZE 
067442 MOV FREE , TSSRB sSTARTING READ BUFFER ADDRESS 
j POHOOORSORERSEREESEEESESEEEEERELOREESEES 
; 
sREAD DATA,ACK COMMAND 
SPoececcnscscccsososocooosccoeccoesoscsse 
sREAD DATA, ACK C 


067440 265%: MOV #100001 , T3SPK3 
MO 3,R4 


Vv @T3SPK3, 
R3,T35SZ 

MOV R4, TSOBCRS) 
JSR »WAITF 
MOV TSSRCRS),R1 
MOV @SSR, 
CMP R1,R2 
BEQ gore 


G 
ERRHRD ERRNO. T3SROF ,PKTSSR 
280%: CKLOOP 


SUB 
265%: ADD R2,R4 


OMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
SUE COMMAND 


sSET UP EXPECTED 
sARE THEY EQUAL 


sBR, IF OK 
sERROR COUNT 
3TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sGET BUFFER ADDRESS 

sGET RECORD SIZE 

sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC IN BUFFER 


SEQ 0199 


CSCLP1 


CsCLP1 





TEST 
TEST 


002214 


002214 
017262 


016536 
063374 


1 - HARDWARE TEST 1-8 TEST MACRO 1113 
7: EXTENDED MODE FEATURES 


000017 


14-JUN-84 16:41 


SWAB R3 

CMP (R4),R3 
BEQ 290% 
MOV (R4),R1 
MOV R3,R2 
INC 


FATFLG 
ERRNO, TSSOTA,EXPREC 


290%: CKLOOP 
TST (R4)> 
SUB R2,R4 
SWAB R3 
CMP R4,R3 
BNE 285% 
TST (R3)>+ 
R3,040. 
265% 
300$: CKLOOP 
ENDSUB 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ,CKDROP 
999%: 
H 
7 
. 
JSR PC, TSTLOOP 
Bcc 163% 
JMP T35L00P 
163$: EXIT TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
3 - 

=<, ¢10>€177770 


T3SPACKET: 
‘ 100004 
-WORD T3S5DATA 
-WORD O 
-WORD 10. 
T3SDATA: 
-WORD T358FR 
-WORD 0 
-WORD 20. 
-WORD O 
T350SW: .WORD 


0 
T3SBFR: .BLKW 25. 
« 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


SEQ 9200 


;SWAP BYTES SwWBe1 ETC. 
;DATA WRITTEN = READ 
;BR, IF DATA OK (GOOD) 
sPICK UP BAD DATA 
;SET UP EXPECTED 

sERROR COUNT 
;0ATA IN BUFFER NOT CORRECT 

TRAP CSERHRD 


-WORD 742 

«WORD TS3SOTA 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sBUMP TO NEXT ADDRESS 


sDONE YET 
;B8R, IF NOT DONE YET (MORE READS) 
3LOO0P IF SELECTED 
TRAP CS$CLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10067: 
TRAP CsESUB 
31S ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
:TRY TO OROP THE UNIT 
300 WE NEED TO ITERATE TEST 
;8R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSEXxIT 
. WORD L10063-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


s;SELECT DRIVE 0 
sMESSAGE SUFFER 





TEST 1 - HARDWARE TEST TES 
ATURE 


TEST 7: EXTENDED MODE F 


S012 067430 


5015 067430 100006 
5016 067432 067450 
000000 


5018 067436 000006 


5031 

3032 

5033 067450 

5034 067450 010 
S035 067451 200 


2 
5043 067456 100205 
5044 067460 100605 
S045 067462 102205 
5046 067464 177777 


5052 
5053 
S054 
5055 
067474 124 
5057 124 


$070 070716 124 


G16 


: MACRO M1113 14-JUN-84 16:4] SEQ 0201 


T3S6F 2: 
T358S0: 

T358S1: 
T35S2: 

T35S3: 


.*«,610>€177770 


.BYTE 
. WORD 
. WORD 


100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
{3502 sADORESS OF SELECT BLOCK DATA 

6. s;SIZE OF DATA PACKET 

100005 ;REREAD COMMAND, AND ACK 

ones sADORESS OF WRITE BUFFER 

0 ;SIZE OF BUFFER (EXTENT) 

10 ;BSELO AREA 

200 ;BSEL1 AREA 

0 3SEL 2 AREA 

0 s;DATA AREA 


-EVEN 
; TAPE MOTION PACKET COMMAND VALUES 


100205 sREREAD DATA (NEXT) 

100605 sREREAD DATA RETRY 

102205 sWRITE CONTINOUS 

177777 sEND OF DATA 

0 sTAPE TIMER COUNTER STORAGE AREA 
0 sTAPE TIMER COUNTER STORAGE AREA 
0 sDELAY COUNTER 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


T350FL: A 


‘Tape Position Incorrect After io Previous (OPP=1)' 
‘TSSR Incorrect After READ DATA Commend’ 

Previous (Spece Reverse, Reed Forward) Command Failed’ 
‘POSITION Fisoee Command) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
‘TSSR Not Correct After Illegel Mode Bits Set’ 
‘Illegel Mode Bits, Feiled To Set ILC Bit In XxSTO’ 
oo Not Correct After WRITE DATA Command’ 

Not At BOT After REWIND gn yee (BOT Not Set In XSTO)' 

a TE DATA RETRY’''S Erese Tepe Not wr + 
"REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
‘TSSR Not Correct After [EREAD COMMAND Re ject’ 
+ ae ory CPOSTTION) Command Not Accepted’ 
‘RAM Error, Correct Dete Pettern Not In Ram’ 
‘TSSR Init. Failed After REREAD COMMAND’ 
‘Drive 7 Select Failed To Set "“OFL” In TSSR’ 





H16 
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5072 071040 124 123 123 T35WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
5073 071130 124 lz 123 T3SWOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command 
5074 071203 103 126 103 T3S5VCK: .ASCIZ ‘CVC Set, Didn'’t Reset VCK In Hrs vw Surfer’ 
$075 071256 124 123 102 T3SBA: .ASCIZ ‘TSBA Not Correct After REREAD DATA ‘ 
5076 071331 127 122 111 T35WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
5077 071420 122 145 141 T3SLON: .ASCIZ ‘Reading Long Record Feiled To Set RLL Bit In xSTO’ 
5078 071502 122 145 141 T3SLOP: .ASCIZ Reading L Record Feiled To Set RLS Bit In XSTO’ 
5079 071564 122 145 163 T3SPBP: .ASCIZ Seed py Byte Count Incorrect After Short Record Read’ 
5080 071652 122 145 141 TS3STRL: .ASCIZ ty A Long Record Feiled To Give seats Stetus Alert 
TSSNEF: .A Ware TA RETRY, At Firet Record, iled To Set RIB Bit XxST3’ 
-ASCIZ ‘TSSR Not Correct After SPACE RECORDS. Sonnend 
-ASCIZ ‘TSSR Not Correct After WRITE DATA edad Into BOT’ 
-ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Commend’ 
5085 072255 104 141 164 TS3SOTA: .ASCIZ ‘Date Compere Error, Dete Read From Tape Not Equal To Written’ 
5086 35S -ASCIZ ‘TSSR Incorrect After WRITE MISCELLANEOUS Command’ 
ASCIZ ‘MOT Bit (XSTO) Not Set During Rewind (Extended Features Mode)’ 
-ASCIZ ' Interrupt Received After ND Command (IE Bit Not Set)’ 
2622 : .ASCIZ ‘OPM Bit (XST2) Not Set During Rewind (Extended Features Mode)’ 
5090 072720 124 123 123 T3SRWE: .ASCIZ ‘TSSR Incorrect After Extended Features REWIND Command’ 
5091 073006 116 157 040 T3SNIN: .ASCIZ 'No Interrupt Detected After REWIND IMMEDIATE’ 


5092 073063 105 170 164 TST35I0: -ASCIZ ‘Extended Mode Functions’ 

5093 .EVEN 

5094 3¢ 

5095 3 

5096 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

5097 ;WRITE SUBSYSTEM MEMORY COMMAND 

5098 3 

50S9 a. 

5100 

5101 073114 T3SREST: 

5102 073114 SAVREG sSAVE THE REGISTERS 

5103 073120 012701 067320 MOV @TS3SPACKET ,R1 sSTART OF THE PACKET 

5104 073124 012721 100004 MOV #100004 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
5105 073130 012721 067330 MOV @T3SDATA,C(R1)> sADORESS OF ate ata DATA BLOCK 
5106 073134 005021 CLR CR1)-+ VEXTENDED ADDRESS 

5107 073136 012721 000012 MOV #10. ,CR1)-+ sSIZE OF DATA BLOCK IN BYTES 
5108 073142 012721 067342 MOV @TSSBFR.CR1)+ sADDRESS OF MESSAGE BUFFER 
5109 073146 005021 CLR (R1)> 

5110 073150 012721 000024 MOV @20.,(R1)-+ sLENGTH OF MESSAGE BUFFER 

5111 073154 005021 CLR CR1)> 

5112 073156 012711 000000 MOV #0,(R1) sSELECT ORIVE ZERO 

$113 073162 012702 000030 MOV 024. ,R2 s;NUMBER OF LOCATIONS TO BE CLEARED 
5114 073166 012762 177777 067342 64%: MOV 9177777, T35BFRC(R2) FALL ONES TO MESSAGE BUFFER 
5115 073174 005742 TST -(R2) sNEXT LOCATION 

5116 073176 022702 000000 CMP 60 ,R2 sAT END OF LOOP YET 

5117 073202 001371 BNE 64$ sKEEP GOING UNTIL DONE 

tr 073204 000207 RTS PC s;RETURN 

5120 073206 T3SRT2: 

5121 073206 SAVREG ;SAVE THE REGISTERS 

5122 073212 012701 067430 MOV OT35PK2,R1 ;START OF THE PACKET 

5123 073216 012721 100006 MOV #200006 ,(R1)-+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
5124 073222 012721 067450 MOV OT3S5SBF2,(R1)+ sADORESS OF DATA BLOCK 

5125 073226 005021 CLR CR1)>+ VEXTENDED ADDRESS 

5126 073230 012721 000006 MOV 46. ,(R1)+ iSIZE OF DATA BLOCK IN BYTES 
5127 073234 005021 CLR ) 


C(R1)>+ 
5128 073236 012701 067450 MOV @T358F2.R1 ;sPOINT TO DATA SEL AREA 


EST 1 


S ° 
EST 7: EXTENDED MODE FEATURES 


5129 
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073242 005021 


30 073244 005011 


067440 


TSSRTS: 


ENOTST 


116 


16:4] SEQ 0203 
(R1)> 
(R1) 
PC ;RETURN 

sSAVE REGISTERS 
OT35PK3,R1 sSET UP POINTER ADORESS 
(R1)-> sCOMMAND SPACE 
(R1)- sADDRESS OF DATA BLOCK 
(R1)> sEXTENDED ADDRESS 
(R1) ;SIZE OF DATA TRANSFER BLOCK 
-) ;RETURN 

L10063: 


TRAP CsersT 


-SBTTL TEST 8: RECORD BUFFERING 


* 


THIS TEST benny THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT ES PROPERLY AND IS PROPERLY 


COMMANDS, OPERAT 


CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7 CONTROLL 


ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 


PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED: 

Bs 


2. 


THE TAPE IS REWOUND. 


BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


THE PROGRAM DELAYS FOR A TIME —— TO AL!.OW THE 
TAPE 10 REPOSITION AND COME TO REST 


A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSVED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
reap BE A RELATIVELY LONG TIME SINCE BUFFERING IS 


BUFFERING IS ENABLED. 

THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 


S222 073330 
5223 073330 
073330 


S232 073416 
5233 073422 


012737 
004737 


000000 
013727 
000000 


006354 
017354 


002116 
177772 
177756 
075662 


002172 


002210 


075662 


J16 
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BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 


RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


BGNTST ; 

8:: 
MOV GEPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
JSR PC ,KTOFF je, OFF KT1i 


ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP ;D0 INITIAL TEST SETUP 

MOV #5, LOOPCNT sPERFORM S ITERATIONS 

CLR T36CNT ;CLEAR TAPE RECORD COUNTER 


3¢ 


; 
sTEST 8, SUBTEST 1 


3 

sVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
s TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 
sERROR BIT SET. 

i 

; 

hs 


T36LOOP : 
@GNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T8.1: 


TRAP C$BSUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


JSR PC, T36REST 
JSR PC, T36RT2 


JSR PC, T36RTS sSET UP OTHER COMMAND PACKET 

MOV 06 .» TS60LY sSET UP DELAY COUNTER 

CLR T36CNT sCLEAR COUNTER 

10$: JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20% ;B8R IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SEC 
250 ° CPC ) . 

«WORD O 
MOV LS$DLY,C€PC)+ 
-WORD 0O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

DEC T360LY sBUMP COUNTER 

BNE 10$ ;B8R, IF COUNTER NOT DONE 
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TEST 8: RECORD 


3626 
5282 073630 


BUFFERING 


005237 
010001 


005052 
012114 


002214 


002174 075530 20%: 


075510 
010742 


002214 


25%: 


011074 


002214 


40%: 


002174 075530 
000034 075530 
075510 
010742 


002214 


16 


14-JUN-84 16:41 


INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
MOV UNITN, T360SW 

MOV OTS6EPACKET ,R4 

JSR PC ,WRTCHR 

BCS 25% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
CKLOOP 

JSR PC ,REWIND 

BCS 30% 

MOV RO,R4 

INC FATFLG 

ERRHRD ERRNO, TS6RWN,PKTSSR 
CKLOOP 

MOV T36BFR+6,R1 

NOV 1,R2 

BIS @6TT1,R2 

CMP #1,R2 

BEQ 403 

INC FATFLG 

ERRHRD ERRNO, T36B0T ,EXPREC 
CKLOOP 

MOV UNITN, T36DSW 

BIS @B1T3!BI1T4, T360SW 
MOV @T36PACKET ,R4 

JSR PC ,.WRTCHR 

BCS 8 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SF THSG 
CKLOOP 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
; WORD 
sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 


sERROR COUNT 
sSAVE CONTENTS OF TSSR 
s;WRITE CHARACTERISTISC i>" 


. WORD 

. WORD 

. WORD 
;LOOP IF SELECTED 

TRAP 


sCALL TAPE ay A COMMAND 
36R, IF NO PROBLEM 
sSET UP REWIND PACKET ADDRESS 


sERROR COUNT 
s;REWIND NOT ACCEPTED 


;sLOOP IF SELECTED 

sPICK UP XSTO 

sSET UP EXPECTED 

SSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

3BR, IF EQUAL (OK) 


sERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 


sLOOP IF SELECTED 
sSET UP DRIVE NUMBER 


TRAP 


SEQ 0205 


CSERHRD 
804 


T3680T 
EXPREC 


CsCLP1 


325-APR-83 REV B - TURN ON THE BUFFERING 
ADDRESS 


sSUBROUTINE NEEDS PACKET 
sISSUE WRITE gn Yh ae A 
COMMAND ISSUED OK 


sBR, 
sERROR COUNT 

SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 
. WORD 
WORD 

;LOOP IF SELECTED 


CSERHRD 
805 
WRTMSG 
SF IMSG 





SEQ 0206 


ST 
TEST a: RECORD BUFFERING 


TE HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
003720 075636 MOV #2000. , T36SZ 
003116 075632 MOV FREE , T36W8 
140005 075530 MOV #140005 , T36PK3 
075630 MOV OT36PK3,R 
MOV R4, TSDBCRS) 
016330 JSR C,WAILTF 
2 MOV TSSRCRS),R1 
000200 MOV ° 
CMP R1,R2 
BEQ 60$ 
002214 INC FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 
5298 073720 608: CKLOOP 
073720 104406 
5299 073722 012737 000005 075662 MOV #05. ,T36D0LY 
5300 073730 708: DELAY 1 
073730 012727 000001 
073734 000000 
073736 013727 002116 
073742 000000 
177772 
177756 
075662 DEC T360LY 
BNE 70$ 
006642 075636 MOV 03490. , 136SZ 
140005 075630 MOV #140005, 
075630 MOV OT36PK3 ,R4 
075656 CLR T36CNT 
001750 075662 MOV #1000. , T360L 
000000 MOV R4, TSOBCRS ) 
000002 803: MOV TSSRCRS),R1 
000200 BIT @SSR,R1 
BNE 90% 
075656 INC T36CNT 
DELAY 1 
000001 
002116 
177772 
177756 
075662 DEC T360LY 
BNE 80% 
000200 90%: MOV @SSR ,R2 
CMP R1,R2 
BEQ 100% 
002214 I FATFL 


5323 074114 


NC G 
ERRHRD ERRNO, TS6WDE ,PKTSSR 


TRAP CSCLP1 
sSET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 
sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR T9 SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 
EQUAL 


sARE THEY 
3;68R, IF OK 
sERROR COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 806 
-WORD WRTERR 
.WORD PKTSSR 

3;LOOP IF SELECTED 
TRAP CSCLP1 


325-APR-83 REV B - DELAY FOR TAPE La STOP 
325-APR-83 REV B - a CAL. 
IV 


#1.06c)- 
MOV LSOLY,CPC)+ 
-WORD 0 
DEC er 
BNE 
DEC “2acec) 
BNE -20 


sBUMP COUNTER DOWN 

3B8R, IF MORE DELAY TO GO 

sSET SIZE OF TRANSFER 

;WRITE DATA,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

sCLEAR COUNTER 

sSET DROP DEAD COUNTER VALUE 

s ISSUE COMMAND 

sGET TSSR CONTENTS 

sCHECK FOR SSR SET 

BR. IF SSR IS SET 

;BUMP CYCLE COUNTER 

;CUT NUMBER OF LOOPS DOWN 
MO #1,(PC)+ 


- 0 

MOV L$OLY,(PC)>+ 
. WORD 0 

DEC “ee 

DEC -22(PC) 
BNE .-20 
sBUMP DROP DEAD COUNTER 
;BR, IF THERE IS STILL TIME 
;SET UP EXPECTED 

;ARE THEY EQUAL 

;6R, IF OK 


sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 


074114 


S350 074306 
5351 074312 
S352 074314 
5353 074316 
$357 074322 


5358 074332 

074332 
5359 074334 
5360 340 


5363 074350 


104456 
001447 
076513 
012126 


002174 
000010 
075510 
010742 


002214 


002116 
177772 
177756 
075662 
000200 


002214 


075656 
075660 


002214 


075530 
075530 


075636 
075630 


075662 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 
TEST 6: RECORD BUFFERING 


100$: 


110$;: 


120$: 


130%: 


140$: 


M16 


14-JUN-84 16:41 


UNITN, T360SW 

#B1IT3, T360SW 
@TS6PACKET ,R4 

PC ,WRICHR 

110% 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


03490. ,T36SZ 


R4, TSOB(RS) 
TSSR(RS),R1 
@SSR ,R1 


T36CNT ,R1 
T36CNU,R2 
R1,R2 


300% 
FATFLG 


SEQ 0207 
TRAP CSERHRD 
. WORD 7 
-WORD T36WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


s;SET UP DRIVE NUMBER 

325-APR-63 REV B - TURN OFF BUFFERING 
s SUBROU NEEDS PACKET ADDRESS 

S ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND Ay = ae OK 


sERROR C 
3 SAVE CONTENTS OF TSSR 
s;WRITE CHARACTERISTISC FAILED 


TRAP CSERHRO 
-WORD 808 
-WORD  WRTMSG 
-WORD  SFIMSG 


;LOOP IF SELECTED 


sSET SIZE OF TRANSFER 

sWRITE DATA, — CVC=1 COMMAND 
;SET UP R& WITH PACKET ADORESS 
;CLEAR COUNTER 

sSET DROP DEAD COUNTER VALUE 


; ISSUE COMMAND 

SGET TSSR CONTENTS 

sCHECK FOR SSR SET 

;BR, IF SSR IS SET 

;BUMP CYCLE COUNTER 

;CUT NUMBER OF LOOPS DOWN 


TRAP CsCLP1 


MOV #1,(PC)+ 
-WORD 0O 

MOV LSOLY,(PC)+ 
-WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22(PC) 

BNE .-20 


sBUMP DROP DEAD COUNTER 
sBR, IF THERE IS STILL TIME 
;SET UP EXPECTED 


sARE THEY EQUAL 
;BR, IF OK 
;ERROR COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CsERHRD 
.WORD 809 
. WORD WRTERR 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 


sGET FIRST COUNTER 


ARE EM 
;BR, IF VALUES ARE CORRECT (OK) 
sERROR COUNT 


EST 1 


5367 


074404 


BUFFERING 

ERRHRD 
104456 
001452 
075664 
015554 

3008: CKLOOP 

104406 

ENDSUB 
104403 
023727 002214 000017 CMP 
103402 BLO 
004737 017262 JSR 


999%: 
3° 


- HARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 
EST 6: RECORD 


sLOOP IF SELECTED 


SEQ 0208 
ERRNO, TS6NAS ,EXPREC sTAPE NOT AT CORRECT SPEED 
TRAP CSERMRD 
-WORD 810 
-WORD  T36NAS 
-WORD EXPREC 


TRAP CsCLP 1 


TRAP CSESUB 


L10071: 
FATFLG,@15. sIS ERROR COUNT AT 25 
9998 sBR, IF LESS THAN 25 
PC .CKDROP sTRY TO DROP THE UNIT 


; 
sTEST 6, SUBTEST 2 


=e G2 Ge ee Gs SS Gs Se Ge Se Ss Se Ge OF GH GS Ge Ge Ge Gs Gs Ge Ge Ge GH Gs GS Gs Se Ge Ge Ge GF Ge Ge Ge GF GF Ge oF 


pe As - ag THAT RECORD BUFFERING, USED FOR WRITE DATA 


PROPERLY AND IS PROPERLY 
TERISTICS DATA WORD. IF THE 
ADY TENDED TURE 


SWI 
NOTE THAT RECORD BUFFERING HAS 


M7196 E NOT ALRE IN EX FEA MODE 
AS THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY tng OF THE TCH USING THE 


Y COMMAND. 
PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 


BEEN ENABLED IN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT 9 nage Is 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORME 


VERIFIES THAT NORHAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 

PERF ORMED : 

1. 


2. 


THE TAPE IS REWOUND. 


BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
phy A RELATIVELY LONG TIME SINCE BUFFERING IS 


BUFFERING IS ENABLED. 
THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 


BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


eee 


TEST 1 
TEST 


5457 


5458 074564 
5459 
5460 074572 


TEST SS 6 TEST MACRO M1113 


- HARDWARE 
8: RECORD BUFFERING 


000000 
013727 
000000 


002116 
177772 
177756 
075662 
002214 


002174 
000040 


075510 
010742 


002214 


011074 


oe of os of oe Se OF oF ot of oe oe 
' 


075662 
108: 


075530 20%: 
075530 


14-JUN-84 16:4] 


THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
BUFFERED CASES ARE COMPARED. IT IS bead THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARCER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS I 
THE RANGE 20 THROUGH 3.5K. 


3>>>>>>>>>>>> BEGIN SUBTEST >>>> 
T 


SEQ 0209 


N 


>> >>> >>> 


TRAP Cs6SUB 

PC, T36REST sSET COMMAND PACKET 

PC, T36RT2 sSET UP OTHER COMMAND PACKET 

a? T36RT3 sSET UP OTHER COMMAND PACKET 

» T360LY 3SE) UP DELAY COUNTER 

TSéCNT” sCLEAR COUNTER 

PC, SOFINIT 1300 INITIALIZE ON CONTROLLER 

20% s8R IF INIT WAS OK 

250 sDELAY ABOUT .25 SEC 
MOV @250,(PC)+ 
-WORD 0 
MOV LSOLY,(PC)+ 
-WORD 0 
DEC ee ‘tas 
BNE 
DEC “22¢PC) 
BNE .-20 

T3601 Y sBUMP COUNTER 

108 s8R, IF COUNTER NOT DONE 

FATFLG sERROR COUNT 

RO,R1 sCONTENTS OF TSSR REGISTER 

ERRNO, SFIERR , SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 6811 
-WORD SFIERR 
-WORD SFIMSG 

UNITN, T360SW sSET UP DRIVE NUMBER 

@61ITS, T360SW s TURN ON HIGH SPEED 

@TS6EPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

PC, ,WRTCHR sTSSUE WRITE CHARACTERISTICS 

25% sB8R, IF COMMAND ISSUED OK 

FATFLG sERROR COUNT 

RO,R1 sSAVE CONTENTS OF TSSR 

ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 612 
-WORD WRTMSG 
-WORD SFIMSG 

sLOOP IF SELECTED 

TRAP CscLPl 

PC ,REWIND sCALL TAPE REWIND COMMAND 

30% s8R, IF NO PROBLEM 

RO,R4 ;SET UP REWIND PACKET ADDRESS 


TEST 1 


TEST 6: RECORD 


$461 
5465 


5507 


074574 


- HARDWARE TEST 1 


8 TEST MACRO M1113 


BUFFERING 


005237 


104456 
001455 
077071 
012126 


104406 
012737 


012727 
000000 


002214 


075510 
010742 


002214 


40%: 


14 JUN-84 16:41 


INC 
ERRHRD 


FATFLG 
ERRNO, TS6RWN,PKTSSR 


FLG 
ERRNO, T36B0T ,EXPREC 


UNITN, T360SW 
@BITS!BIT4, T360SW 
@TS6PACKET ,R4 

PC ,WRTCHR 

50% 

FATFLG 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


60 
FATFLG 
ERRNO, WRTERR ,PKTSSR 


 waieneess 


SEQ 0210 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 613 
. T 36RWN 
WORD PK’SSR 
sLOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
+DOES EXP © REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 6814 
-WORD 13680T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP CsCLP1 
sSET UP ORIVE NUMBER 
325-APR-63 REV B - TURN ON THE BUFFERING 
INE NEEDS ADORE SS 


s SUBROUT PACKET 
STSSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND a OK 


sERROR C 
3s SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


CsSERHRD 
"MORO 15 
. WORD WRTIMSG 
. WORD SF IMSG 
3LOOP IF SELECTED 
TRAP CS$CLP1 
3SET UP RECORD SIZE 
sADORESS OF WRITE BUFFER 
;WRITE DATA,ACK,CVC=1 COMMAND 
3SET UP R4 WITH PACKET ADORESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
:BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 816 
. WORD WRTERR 
.WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


325-APR-83 REV B - DELAY FOR TAPE TO STOP 

325-APR-83 REV B - DELAY ROUTINE CALL 
MOV @1,(PC)>+ 
«WORD O 


Slee Baits 


TE - HARDWARE TEST 1-8 TEST MACRO M1115 


SY a 
TEST 8: RECORD BUFFERING 
075020 013727 002116 
000000 
075026 005367 177772 
075034 005367 177756 


000000 

075132 013727 002116 
000000 

075140 005367 177772 

075146 005367 177756 

5521 075154 005337 075662 
5522 352 


3526 075172 005237 002214 


0000 
S534 075224 012704 075510 
coos 075230 004737 010742 


5537 075236 005237 002214 


075264 
5546 075272 012704 075630 


110%: 


14 


a = a a a ee a ee 


-JUN-84 16:41 


MOV TSSRCRS) RI 
BIT @SSR,R1 

BNE 90% 

INC T36CNT 


DELAY 1 


00% 
INC FATFLG 
ERRHRD ERRNO, TS6WDE ,PKTSSR 


CKLOOP 
UNITN, T360SW 
BIS BITS, TS60SW 
oT T, 
JSR PC ,WRT 
BCS 110% 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


MOV 03490. , T36SZ 
MOV #140005 , T36PK3 
MOV OT36PK3,R4 


SEQ 0211 

MOV LSOLY,(PC)- 
-WORD 0 
DEC -6( PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

sBUMP COUNTER DOWN 

sB8R, IF MORE DELAY TO GO 

sSET SIZE OF TRANSFER 

sWRITE DATA,ACK,CVC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sCLEAR COUNTER 

sSET DROP DEAD COUNTER VALUE 

s ISSUE COMMAND 

sGET TSSR CONTENTS 

sCHECK FOR SSR SET 

sBR, IF SSR IS SET 

; CYCLE COUNTER 

sCUT NUMBER OF LOOPS DOWN 
MOV @1,(PC)> 
-WORD 0 


MOV LSOLY.(PC)+ 
.WORD 0 

DEC -6(PC) 

DEC “22¢PC) 
sBUMP DROP DEAD COUNTER 7 

:BR, IF THERE IS STILL TIME 


sSET UP EXPECTED 
s ARE Mt 


sBR, 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 6817 
-WORD T36WDE 
WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CsCLP1 
sSET UP DRIVE NUMBER 
325-APR-63 REV B - TURN OFF > haat 
sSUBROUTINE NEEDS PACKET ADORESS 
S ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND — OK 


sERROR C 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC a 


RAP CSERHRD 
-WORD 618 
-WORD WRTMSG 

WORD SFIMSG 


sLOOP IF SELECTED 


sSET SIZE OF TRANSFER 
;WRITE DATA, ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


TRAP CsCLP1 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 
TEST 8: RECORD BUFFERING 


000000 
075340 013727 
900000 


002116 
177772 
177756 
075662 


075656 
075660 


002214 


002214 
017262 


016536 
073330 


075662 


000017 


1208: 


130$: 


140$: 


300$ : 


999%: 


163$: 


se en EE omen = ee a ee 


F 4 
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G 
ERRNO, WRTERR ,PKTSSR 


T36CNT ,R1 
T36CNU,R2 
R1,R2 
300% 
FATFL 


G 
ERRNO, TS6NAS ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 
T36LO0P 
TST 


SEQ 0212 
sCLEAR COUNTER 
sSET DROP DEAD COUNTER VALUE 
s ISSUE COMMAND 
sGET TSSR CONTENTS 
sCHECK FOR SSR SET 
3B8R, IF SSR IS SET 
sBUMP CYCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
MOV @1,(PC)- 
-WORD O 
MOV LSOLY,(PC)- 
-WORD O 
DEC -6(PC) 
BNE 4 
bEC =~ 
s;BUMP DROP DEAD COUNTER 
38R, IF THERE IS STILL TIME 
sSET UW EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
sERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP = CSERHRO 
. WORD €19 
~ WORD WRTERR 
-WORD PKTSSR 


sLOOP IF SELECTED 


sGET FIRST COUNTER 

s;GET SECOND COUNTER 

s25-APR-83 REV B - COMPARE EM 
3BR, IF VALUES ARE CORRECT (0K) 


sERROR COUNT 
;TAPE NOT AT CORRECT ne 


TRAP CSCLP1 


CsERHRD 
-WORD 620 
«WORD T36NAS 
-WORD EXPREC 

s;LOOP IF SELECTED 
TRAP CsCLP1 
L10072: 

TRAP CsESUB 


sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
TRY TO OROP THE UNIT 


300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP CSsExIT 


TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 


TEST 8: RECORD BUFFERING 
075502 003344 


5593 075510 
5596 075510 100004 
5597 075512 075520 
5596 075514 000000 
5599 075516 000012 
5600 
5601 075520 075552 
5602 000000 
5603 075524 000024 
75526 000000 
5605 075530 000000 
5606 


5644 475652 102205 
5645 075654 1.77777 


14 - JUN-84 


16:4] 


3° 
sLOCAL STORAGE FOR THIS TEST 
.*¢, «106177770 


T nett T: 


T36DATA: 


T360SW: 
T366FR: 


; 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


3 
T36PKe: 


100004 
T36DATA 
0 

10. 


T36BFR 


SEQ 0213 


-WORD 110070-. 


sCOMMAND PACKET FOR TEST 

SWRITE gg ea COMMAND, WITH , ACK 
sADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK S 

sCHARACTERISTICS DATA BLOCK 

sADORESS OF MESSAGE BUFFER 

;LENGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


s;WRITE SUB SYS MEM COMMAND, AND 
sADORESS OF SELECT BLOCK DATA 


3SIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


;BSELO AREA 


sDATA AREA 


;REREAD DATA (NEXT) 
sREREAD DATA RETRY 
;sWRITE CONTINOUS 
;END OF DATA 


;TAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 





EEE 


TEST 1 - HARDWARE TEST 
TEST 6: RECORD BUFFERING 


111 
075735 124 
076023 124 
076072 122 
076167 120 
076251 122 
076321 124 
076376 111 
076457 122 


076660 127 
076735 122 
077014 124 


0050, 
100732 012711 


075510 
100004 
075520 


000012 
075532 


000024 


1-8 TEST MACRO M1113 


14-JUN-84 16:41 


H1 


sLOCAL TEXT MESSAGES FOR TEST 


= 
T36NAS : 


T36WNG: . 


TSTS6ID: 


3¢ 


-ASCIZ 


one Veo! Tape Controller Bufferi ‘ 
‘osition Incorrect After REREAD Previous (OPP+1)’ 
'TSSR Incorrect After READ DATA Command’ 
' REREAD Previous (Spece Reverse, Read Forward) Command Fai leo’ 
‘POSITION (Spece Command) Feiled, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 
ae Mode Bite, Feiled To Set ILC Bit In xSTO’ 

"REREAD COMMAND Not Accepted’ 
— Not Correct After *URITE DATA Command’ 

Not At BOT After REWIND Stee Lone (BOT Not Set In xSTO)’ 

a TE DATA RETRY'’S Erese Tepe Not “| ee 
"REREAD DATA OVER EOT GAVE NO 0 TAPE status ALERT’ 
‘TSSR Not secret After REREAD ee Re ject’ 
"Rewind (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Date Pattern Not In Rem‘ 
*TSSR Init. Failed After REREAD COMMAND’ 
‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After REREAD DATA Command’ 
‘Cvc Set, Didn’''t Reset VCK In nk a 

TSBA Not Correct After REREAD DATA P 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading . Record Feiled To Set RLL Bit In XSTO’ 
‘Reading L Record Failed To Set RLS Bit In XSTO’ 
th my By —— Incorrect After Short Record Read’ 


reg A org Speers Failed To Give Tape Status Alert’ 
WRITE TA RETRY, At First Record, Failed To Set RIB Bit XST3’ 


‘TSSR Not Correct After SPACE RECORDS Command’ 

"TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

‘TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Dete Compere Error, Dete Read From Tape Not Equal To Written’ 
-ASCIZ ‘Record Buffering’ 


; 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
s;WRITE SUBSYSTEM MEMORY COMMAND 


T36REST : 


sSAVE THE REGISTERS 


@T36PACKET,R1 sSTART OF THE PACKET 
#100004 ,(R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T36DATA,(R1)>+ sADORESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
#10. ,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
nee sADORESS OF MESSAGE BUFFER 
+ 

7 +f ama sLENGTH OF MESSAGE BUFFER 

1)+ 
@0,(R1) ;SELECT DRIVE ZERO 
024, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 


SEQ 0214 


TEST 1 - HARDWARE TEST 1 
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TEST 8: RECORD BUFFERING 


012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 


012701 


012737 


177777 075532 64%: MOV 9177777, 736BFRC(R2) sALL ONES TO MESSAGE BUFFER 
TST -(R2) sNEXT LOCATION 
000000 CMP 00 ,R2 sAT ENO OF LOOP YET 
BNE 64$ sKEEP GOING UNTIL DONE 
RTS PC ;RETURN 
T36RT2: 
SAVREG sSAVE THE REGISTERS 
075620 MOV @T36PK2,R1 sSTART OF THE PACKET 
100006 MOV #100006, (R1)>+ ;WRITE SUBSYSTEM MEM. WITH A 
075640 MOV OT36BF2,(R1)-> sADDRESS OF DATA BLOCK 
CLR CR1)+ } EXTENDED ADORESS 
000006 ne a sSIZE OF DATA BLOCK IN BYTES 
L ¢ 
075640 MOV @T366F2,R1 sPOINT TO DATA SEL AREA 
CLR CR1)+ 
CLR C(R1) 
RTS PC ;RETURN 
T36RTS: 
SAVREG ;SAVE REGISTERS 
075630 MOV @T36PK3,R1 sSET UP POINTER ADDRESS 
CLR (R1)-+ sCOMMAND SPACE 
CLR (R1)- sADDRESS OF DATA BLOCK 
CLR CR1)-+ sEXTENDED ADDRESS 
CLR (R1) 3SIZE OF DATA TRANSFER BLOCK 
RTS PC ;RETURN 
ENOTST 
L10070: 
TRAP 
-SBTTL TEST 9: FUNCTION TIMING 
sTHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
sRECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
3;AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
;SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A 
sSKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, . THE 
3 TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
sREAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
;TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
;DIFFERENT TEST RECORD LENGTHS. 
; 
H 
i- 
BGNTST 
006354 002172 MOV #EPRT1, _—— ;PRIMARY ERROR MESSAGE 
017354 JSR PC ,KT 3; TURN KT OFF 
105273 MOV orsts7ID. RO ;ASCII MESSAGE TO IDENTIFY T 
016570 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
5S 002210 MOV 05. LOOPCNT ;PERFORM 5 ITERATIONS 
102336 CLR T37CNT ;CLEAR TAPE RECORD COUNTER 


3¢ 


;TEST 9, SUBTEST 1 


SEQ 0215 


cK, 


CSETST 


EST 


oe 


TEST 1 - HARDWARE TEL: 
TEST 9: FUNCTION TIMING 


000000 
013727 
000000 


012114 


005052 
012114 


104406 
004737 
103411 
016501 

0004 


002116 
177772 
177756 
102342 
002214 


002174 


102170 
010742 


002214 


011074 
000002 
002214 


3-6 TEST MACRO M1113 


T37LO0P: 
8 


102342 


102210 20%: 


23%: 


14 


-JUN-84 16:41 


CLR INTRECV 


JSR PC, T37REST 

JSR PC, T37RT2 

JSR PC, T37RT3 

MOV #65000. , T37DLY 
JSR 7 westhande 


DELAY 250 


BNE 10% 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 


MOV UNITN, T370SW 
MOV @T37PACKET ,R4 
J 


SR PC ,.WRTCHR 
BCS 23% 
INC FATFLG 
MOV RO,R 


1 
ERRNO, WRTMSG , SFIMSG 


CKLOOP 

JSR PC, REWIND 
BCS 30% 

MOV TSSRCRS),R1 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T37RWN,PKTSSR 


SEQ 0216 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
79.1: 


TRAP 
s INTERRUPT INDICATOR 
s TIMER FOR WRITE DATA SPACING 


C$BSUB8 


; TIMER FOR WRITE DATA RETRY SPACING 
OMMAND 


sSET C PACKET 
sSET UP OTHER COMMAND PACKET 


s00 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
sDELAY ABOUT .25 SEC 


sBUMP COUNTER 
sBR, IF COUNTER NOT DONE 


sERROR COUNT 
s CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
- WORD 
WORD 
;SET UP UNIT NUMBER 


0250, (PC)+ 
LeOLY.(PC)« 
O6cPc) 
“22PC) 
--20 


CSEROF 
901 

SFIERR 
SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


s ISSUE WRITE CHARACTERISTICS 
38R, IF COMMAND ISSUED OK 
sERROR ye 
rt CONTENTS OF TSSR 
WRITE CHARACTERISTISC —- 


TyoRo 


. WORD 

. WORD 
;LOOP IF SELECTED 

TRAP 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM. 
sGET TSSR CONTENTS 
;GET PACKET ADDRESS 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP 
. WORD 


CsCLPl 


CSERHRD 
903 





TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1115 


TEST 


101312 


103515 
012126 


9: FUNCTION TIMING 


011074 
000002 
002214 


102220 
000002 


002214 


102312 
102310 
102316 


30$: 


40%: 


65$: 


70$: 


130%: 


14 - JUN- 84 


KK. 


16:4] 


T37BFR+6,R1 
R1,R2 
sh te 


LG 
ERRNO, T37B0T ,EXPREC 


ERRNC, TS7WOC ,PKTSSR 


R3 

65% 

PC ,REWINO 
130% 

TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, T37RWN,PKTSSR 


T37BFR+6,R1 
R1,R2 
#B1IT1,R2 
R1,R2 

140% 


FATFLG 
ERRNO, T37BOT , EXPREC 





SEQ 0217 
-WORD  T37RWN 
PKTSSR 
sLOOP IF SELECTED 
TRAP CSCiP1 
sPICK UP XSTO 
sSET UP EXPECTED 
;SET BOT BIT IN —" 
sDOES EXP = REC'D 
sBR, IF EQUAL (OK) 
sERROR COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHROD 
-WORD 904 
-WORD 137B0T 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 

sNJMBER OF RECORDS TO BE WRITTEN 

} STARTING WRITE BUFFER ADDRESS 

sWRITE DATA,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

OMMAND 


s ISSUE C 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


;BR, IF OK 
sERROR COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 905 
-WORD T37WOC 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

;DEC RECORD COUNTER 

sBR, MORE RECORDS TO WRITE 

;CALL TAPE REWIND COMMAND 

sBR, NO PROBLEM 

sGET TSSR CONTENTS 

3;GET PACKET ADDRESS 

sERROR COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 906 
. WORD T37RWUN 
. WORD PKTSSR 

;LOO0P IF SELECTED 
TRAP CSCLPl 

;PICK UP xXSTO 

;SET UP EXPECTED 

ISET BOT BIT IN EXPECTED 

s;DOES EXP = REC'D 


; COUNT 
; TAPE NOT AT BOT AFTER REWIND 


TEST 


- HARDWARE TEST 1-8 TEST MACRO M1115 


104456 
001615 
103211 
015554 


000000 
013727 
000000 


1 
TEST 9: FUNCTION TIMING 


002116 
177772 
177756 


002214 


011074 


000002 
002214 


140$: 


160%: 


1708: 


L] 


14-JUN-84 16:41 


OTS7PKS RA 
#31. ,T37RB 
#140010, T37PKS 
R4, TSOBCRS) 
TS7CNT 

1 


ar pai 


T37BFR+-6,R1 


FATFLG 
ERRNO, TS7BOT ,EXPREC 


sLOOP IF SELECTED 


sSET UP PACKET ADDRESS 


;GET TSSR 


sCHECK FOR TSSR‘'S SSR SET 


;WAS EVERYTHING OK 
;BR, IF AL IS WELL 


sERROR COUNT 
;SPACE FORWARD DION’ T a ye 


;LOOP IF SELECTED 


T 


:CALL TAPE ay A COMMAND 
PROBLEM 


;GET STATUS FROM TSSR 


sERROR COUNT 
; REWIND NOT ACCEPTED 


sLOOP IF SELECTED 


;PICK WP XSTO 
;SET UWP EXPECT 


ED 
;SET BOT BIT IN EXPECTED 


;D0ES EXP = REC'D 
;BR, IF EQUA (OK) 


sERROR COUNT 
; TAPE NOT AT BOT AFTER — 


. WORD 
. WORT 
. WORD 


SEQ 0218 


— 


90 
T3760T 
EXPREC 


CSCLP1 


#1,(PC)> 
PsoLY.(PC)- 
"6¢C) 
“2acec) 


CSERHRO 
9068 


T37SCF 
PKTSSR 


CsCL Pi 


CSERHRD 
909 


T37RWN 
PKTSSR 


CscLPl 


Test 1 
TEST 


590e 


104406 
012704 
012737 
012737 
010465 
005237 


012727 
000000 


102310 
000121 
140010 
000000 
102340 
000001 
002116 
177772 


177756 


002214 


002214 
017262 


016536 
101104 


000017 


- HARDWARE TEST 1 8 TEST MACRO M1115 
9: FUNCTION TIMING 


1758 


2605: 


3008: 


999%: 


14 JN 34 


Cx. OOP 


16:4] 


OTS7PKS Ra 
061. ,TS7R6 
#140010, T37PKS 
R4 . TSDBC RS) 
TS7CNU 

i 


TSSAC RS). RL 
@SSR RI 
252 


$ 
@SSR .R2 
R2.R1 
260% 
FATFLG 


ERRNO. TS7SCF PRK TSSR 


TS7CNT Ri 


300 
FATFLG 


ERRNO, TS7TIM. EXPREC 


FATFLG,@15. 
999% 
PC .CKDROP 


PC, TSTLOOP 
1635 
T37L00P 


SEQ 0219 


sLOOP IF SELECTED 


TRAP 
SET UP PACKET ADORESS 
SET UWP RECORDS TO SPACE OVER 
sACK,CVC*1,SPACE FORWARD COMMAND 
: ISSUE COMMAND 


CSc. P 1 


;8Ue8 TIMER 

;DELAY ABOUT 100US 
OV @1,(PC)- 
-WORD 0 
Ov LsOLry,(PC)- 
. WORD ° 
OEC -6( PC) 
ane sail 
OEC -22( °C) 
BNE .-20 

;GET TSSR 

;CMECK FOR TSSR’S SSR SET 

;KEEP COUNTING UNTIL SET 

;SET W EXPECTED 

;WAS EVERYTHING Ox 

782, IF mi IS WELL 

;ERROR COUNT 

;SPACE FORWARD DION’ T WORK OuT 
TRAP CSE RRO 
. WORD 911 
.WORD T37SCF 
.WORD PKTSSR 

;LO00P IF SELECTED 
TRAP CSsCLPi 

; TIME FOR WRITE SPACING 

; TIME FOR WRITE RETRY SPACING 

;SETTING UP CONSTANTS 

;SETTING UP CONSTANTS 

;CHECK FOR DIFFERENCE 

;BR. IF GOOD seas CHECK aeae 

;ERROR COUNT 

; TIME WAS NOT OIFFERENT ENOUGH 
"Rar CSERHROD 
. ORD 912 
. WORD TS7TIF 
.WORD EXPREC 

;LOOP IF SELECTED 
RAP CSCLPi 


3 «4440 END SUBTEST >>> >>> >>>>>> 
L10074: 
"RAF CsEesus 
:IS ERROR COUNT AT 25 
;BR,. IF LESS THAN 25 
;TRY TO OROP (HE UNIT 


1:00 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


TEST 


5944 


102162 


102324 


102326 
102330 
102332 
102334 


102336 


i1 
Ni 


TEST 1-8 TEST MACRO M1113 14-JUN-84 16:41 


1 - HARDWARE 
TEST 9: FUNCTION TIMING 


104432 
003306 


102170 


190004 
102200 


010 


102205 
177777 


000000 


1635: 
cxIT TS’ 


;LOCAL STORAGE FOR THIS TEST 
_@€, 6106177770 


T37PACKET: 
‘ 100004 
WORD T37DATA 
-WORD O 
-WORD 10. 
T37DATA: 
.WORD T37BFR 
-WORD O 
WORD 20. 
WORD 0 


T370SW: .WORD 0 
T37BFR: .BLKW 25. 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
, =<, #10>€177770 


T37PKe: 
. WORD 100006 
.WORD 1376F2 
-WORD O 
-WORD 6 
T37PK3: 
. WORD 100005 
T37RB 
T37WB8 .WORD FREE 
-WORD O 
T37SZ: .WORD O 
EVEN 
H 
3 
3 
T378F2 


T37RN: .WORD 100205 
T37WOR: .WORD 100605 
T37CON: .WORD 102205 

«WORD 177777 


T37CNT: .WORD 0 


;ALL DONE THIS TEST 
TRAP CsExIT 
-WORD 110075.. 


;COMMAND PACKET FOR TEST 
;WRITE CHARACTERISTICS COMMAND, WITH . ACK 
s;ADDRESS OF CHARACTERISTICS BLOCK 


STARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
;sLENGTH OF MESSAGE BUFFER 


;SELECT DRIVE O 
;MESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, AND ACK 
;ADORESS OF SELECT BLOCK CATA 


;SIZE OF DATA PACKET 


;REREAD COMMAND, AND ACK 
;ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER CEXTENT) 


s;BSELO AREA 
;BSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


;REREAD DATA (NEXT) 
;REREAD DATA RETRY 
;WRITE CONTINOUS 
;END OF DATA 


; TAPE TIMER COUNTER STORAGE AREA 


TEST - MARDWARE TEST 1-8 TEST MACRO M1113 14-JUN-84 16:4) SEQ 0221 


TEST “ FUNCTION TIMING 


000012 
102212 


000024 


TS7CNU: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
T370L.¥: .WORD 0 sDELAY COUNTER 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TS7WNG: .ASCIZ ‘Tepe Position Incerrect After REREAD Previous (0PP-1)’ 
TS7ROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 

TS7RRF: .ASCIZ ‘REREAD Previous (Spece Reverse, Reed Forward) Conmend Failed 
T37SC: .ASCIZ ‘POSITION (Spece Command) Failed, TSSR Not Correct’ 

TS7LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

TS7WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 

TS7L0@: .ASCIZ ‘Ill 1 Mode Bite, Feiled To Set ILC 8: t In xSTO’ 

TS7SSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ 

TS37WOE: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Commend,A 

T37BO0T: .ASCIZ ‘Tepe Not At BOT After REWIND Command (BOT Not Set. he "sty 


T37TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Re ject 
TS7RUN: .ASCIZ ‘Rewind (POSITION) Commend Not Accepted’ 
TS7RNC: .ASCIZ ‘RAM Error, Currect Dete Pettern Not In Rem’ 
T37AMS: .ASCIZ ‘TSSR Init. Feiled After REREAD COMMAND: 
TS70FL: .ASCIZ ‘Drive 7 Select tg me To Set ‘tate In TSSR’ 


. f TA 
ASCIZ ‘CVC Set. Didn'’t Reset VCK In Buffer’ 


T37vCK: . Ae pdltacene 

T37BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA ; 

T37WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Reed)’ 
TS7LON: .ASCIZ ‘Reading Long Record Feiled To Set RLL Bit In XSTO' 
TS7LOP: .ASCIZ ‘Reading ‘2 Record Failed To Set ALS Bit In XSTO' 

T3 .ASCIZ Recidval © yte Ce Count incorrect After Short Record Reed 


ASCIZ meging | ong Rec Feiled To Give Tepe Stetus Aler 

: .ASCIZ WRITE TA TRY A At First Record, Feiled To Set RIB ‘pit xST3° 
T37SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 

T37TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

T37WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Commend’ 

T370TA: .ASCIZ ‘Dete Compere Error, Dete Reed From Tape Not Equal To Written’ 
TST37I0: =_ -ASCIZ ‘Function Timing’ 


3¢ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
SWRITE SUBSYSTEM MEMORY COMMAND 

| 

R= 


T37REST: 
SAVREG sSAVE THE REGISTERS 
MOV @TS7PACKET ,R1 sSTART OF THE PACKET 
mov #100004 ,(R1)-+ sWRITE SUBSYSTEM MEM. HW ACK, 
MOV @TS7DATA,(R1)+ sADORESS OF CHARATSTICS. DATA BLOCK 
CLR (R1)+ sEXTENDED ADORESS 
MOV #10. ,(R1)+ sSIZE OF DATA BLOCK IN BYTES 


ae + 4 alia ote cet sADORESS OF MESSAGE BUFFER 
L ° 
MOV #20. ,(R1)+ sLENGTH OF MESSAGE BUFFER 
CLR (R1)-> 


TEST 


- MARDWARE TEST 1-8 TEST MACRO M1115 


TEST 9; FUNCTION TIMING 


012711 


000000 
000030 
177777 
000000 


102310 


102212 64%: 


TS7RT2: 


T37RT3: 


14-JUN-84 16:41 


#0,(R1) 

#24, ,R2 

0177777, TS7BFR(R2) 
) 


@TS7PK2,R1 
#100006, (R1)> 
@T37BF2,(R1)+ 


OTZ7PKS,R1 
(R1)- 
(R1)> 
(R1)> 

(R1) 

PC 


SEQ 0227 


sSELECT ORIVE ZERO 
sNUMBER OF LOCATIONS TO = names 
sALL ONES TO MESSAGE BUFFE 


NO OOP YE 
sKEEP GOING UNTIL DONE 
sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE by etn MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRE TURN 


sSAVE REGISTERS 

3sSET UP POINTER ADDRESS 
sCOMMAND SPACE 

sADORESS OF DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA TRANSFER BLOCK 
3;RE TURN 


10073: 


TRAP CSETST 


TSV6 - PARAMETER CODING MACRO 1115 
FUNCTION TIMING 


TEST 


SSES 


105474 
105474 


177776 


001031 
105552 


000000 
000776 


104 
111 
111 
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124 
124 


TSV6:: 


| aed 


. TITLE 


BGNMOD 


De 


TSV6 - PARAMETER CODING 


TSV6 


SEQ 0223 


-SBTTL HARDWARE PARAMETER CODING SECTION 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 


THAT ARE USED BY 


THE SUPERVISOR TO BUILD P-TABLES. THE 


; 

; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
: 
; 
' 


MACROS 
uI TH THE OPERAT 


LSHARD: : 


L10075: 


HPM1: 
HPMo : 
HPM? 


THE 
ALLOW cin csaanee TO ESTABLISH COMMUNICATIONS 


BGNHRO 
-WORD L10075-L $HARD/2 


555] 


i 


se 


HPM1.0,0,160010,177776, YES 
T$CODE 


HILIM 
TT aa 
TSCODE 


MP2 

TSLOLIM 

T¢HILIM 
HPMS,.4,0,340,0,7, YES 


‘DEVICE ADORESS ( TSBA/TSOB ) : 
‘INTERRUPT VECTOR 
‘INTERRUPT PRIORITY 


sGET TSBA/TSOB REGISTER ADDRESS. 


sC&T VECTOR ADDRESS. 


s;GET INTERRUPT PRIORITY. 


E2 
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SOFTWARE PARAMETER CODING SECTION 


SEQ 0224 


ABLES. 


GET TRANSPORT TEST FLAG. 
GET ITERATION CONTROL. 


GET LOCAL ERROR LIMIT 
GET GLOBAL ERROR LIMIT 


42 .SBTTL SOFTWARE PARAMETER CODING SECTION 
43 
44 3o¢ 
as ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
46 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-T THE 
47 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
48 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
49 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
50 ; WITH THE OPERATOR. 
51 s-- 
S2 105626 BGNSF T 

105626 000003 .WORD L10076-L$SOF T/2 

105630 LS$SOFT:: 
53 : GPRM = SP41,0,-1, YES $ 
4 105630 GPRML Spm4.2,-1.,YES $ 

105630 0011530 .WORD TSCODE 

105632 105666 . WORD SPMN4 

105634 177777 . WORD -1 
SS ; GPRMOD SPM6..4,0,7777,0,7777, YES : 
S56 Fy SPMN7 ,.6.0,7777,0,7777, YES 3 
57 105636 ENDSFT 

.EVEN 

- 105636 L10076: 
59 105636 105 116 101 SPM1 .ASCIZ ENABLE TRANSPORT TESTS 


60 105666 111 116 110 SPM4: .ASCIZ ‘INHIBIT ITERATIONS 
61 105716 120 105 122 SPM6:  .ASCIZ ‘PER TEST ERROR LIMIT 
62 105746 120 105 122 SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT 


63 .SBTTL PATCH AREA 
64 
65 3 
-* ; FINALLY A GENEROUS PATCH AREA. 
8 
68 ; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
44 ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
: 
71 
L | 105776 PATCH: : 
La 105776 BLKW 32 
77 106490 2,'377+1 
79 106400 LASTAD ;SET LAST USED ADDRESS. 
106400 000000 WORD 
106402 000000 f 0 
106404 L$LAST:: 
80 106404 


SESE — —————_— TS TL LLL 


TSV6 - PARAMETER CODING MACRO M1113 14-JUN-84 16:41 SEQ 0225 
SYMBOL TABLE 
ADOSSR 012206 G CsAU = 000052 DEVORO 023412 FRESIZ 003120 G INTFLA 016225 
ADR = 000020 CSAUTO= 000061 DEVNRD 023331 FUSI 00411 INTMAS 016224 
AMBTSS 006715 CsBRK = 000022 DEVNXR 023247 FsAU = 900015 INTR 016276 G 
ASSEMB= 000010 C#BSEG= 000004 DEVON. 023177 FSAUTO= 000020 INTREC 002216 G 
A1716 = 000005 C$BSUB= 000002 DEVSUM 025142 FSBGN = 000040 INTVEC 016226 
BADDAT 003150 G CSCEFG= 000045 OFPTBL 002150 G FSCLEA= 000007 INTX 004274 
BADSSR 015760 G CSCLCK= 000062 DIAGMC= 000000 Fs0U = 000016 INVERT 021222 G 
80 = 177520 G CSCLEA= 000012 OICED = 900001 FSEND = 000041 IOKCKI= 000200 
| BENBSW 002222 G CSCLOS= 000035 DSBINT 016264 FSHARD= 000004 IOKSTP* 000001 
/BIE = 040000 CsCLPi= DUADI2 004637 Few = 000015 IPRI 002204 G 
BITC = 000001 G C8CVEC= 000036 OUFLG 003104 G FSINIT= Q000006 ISR * 000100 G 
BITOO = 000001 G CS0CLN= 000044 003054 FSJMP = 000050 IVEC 002202 G 
BITO1 = 000002 G C$D0DU= 000051 EF .CON* 000036 G FSMOD = 000000 IXE = 004000 G 
BITO2 = 000004 G CSDRPT= 000024 EF .NEW= 000035 G FSMSG = 000011 IsAu = 000041 
BITOS = 000010 G Cs0U = 000053 EF .PWR= 000034 G FSPROT= 000021 I$AUTO= 000041 
| BITO4 = 000020 G CSEDIT= 000005 EF .RES* 000037 G FSPWR = 000017 ISCLN = 000041 
BITOS = 000040 G CSERDF= 000055 EF .STA= G FSRPT = 000012 Is0uU = 000041 
| BITOS = 000100 G CSERHR= 000056 E 017057 FSSEG = 000003 ISHROD = 000041 
BITO7 = 000200 G CSERRO= 000060 EN . F$SOFT= 000005 ISINIT= 000041 
BITOS = 000400 G CSERSF= 000054 ENAINT 016232 FSSRV = 000010 IsM0D = 000041 
BITO9 = 001000 G CSERSO= 000057 ENVIRN 020710 F$SUB = I$MSG = 000041 
| BIT1 = 000002 G CSESCA= 000010 EPRTSW 002172 G FSSW = 000014 I$PROT= 000040 
_BIT10 = 002000 G CSESEG= 000005 EPRT1 006354 FSTEST= 000001 ISPTAB= 000041 
| BIT11 = 004000 G $ESUB= 000003 EPRT2 0064135 GDDAT 003152 G ISPWR = 000041 
BIT12 = 010000 G CSETST= 000001 ERCM 012013 GE! 002166 G ISRPT = 000041 
BIT13 = 020000 G Cs#EXIT= 000032 ERRHI GETPAT G I$SEG = 000041 
BIT14 = 040000 G = 000026 ERRK 017036 GETSEL 020336 G I$SETU= 000041 
| BITIS = 100000 G C&#GETW= 000027 ERRLO 32 GSCNTO= $SFT = 000041 
| BIT2 = 000004 G CSGMAN= 000043 ERRNO = 001620 GSDELM= 000372 I¢SRV = 000041 
| BITS = 000010 G CS$GPHR= 000042 ERRVEC= GSDISP= 000003 $SUB = 000041 
| BIT4 = 000020 G C&GPLO= 000030 ERTABE 003370 s$EXCP= 000400 ISTST = 000041 
| BITS = 000040 G C$GPRI= ERTABL 003170 GSHILI= 000002 Jt JP = 000167 
| BIT6 = 000100 G CSINIT= 000011 ESUM 017040 GSLOLI= 000001 KIPARO= 172340 
| BIT7 = 000200 G C#INLP= 000020 EV. = G G#NO = 000000 KIPAR1= 172342 
| BIT8 = 000400 G CSMANI= 000050 EXBCNT= 000010 GSOFFS= KIPAR2= 172344 
|BIT9 = 001000 G CSMEM = 000031 EXPBRE 015562 G GSOFSI* 000376 KIPARS= 172346 
BOE = 000400 G CSMSG = 000025 EXPD 002224 GSPRMA= 000001 KIPAR4= 172350 
BRINIT 004453 CSOPEN= 000034 EXPGOT 004527 G$PRMD= 000002 KIPARS= 172352 
BSELO = 000000 CSPNTB= 000014 EXPGT2 004565 GS$PRML= 000000 KIPAR6= 172354 
BSEL1 = 000001 CSPNTF= 000017 EXPMSG 002314 G G$RADA= 000140 KIPAR7= 172356 
CHKAMB 016124 CSPNTS= 000016 EXPREC 015554 G G$#RADB= 000000 KIPDRO= 172300 
CHKMAN CSPNTX= 000015 EXTA 005766 G$RADD= 000040 KIPOR1= 172302 
CHKTSS 016416 CsQ@IO = 000377 EXTEND 005764 G$RADL= 000120 KIPDR2= 172304 
| CKDROP 017262 cs 000007 EXTFEA 002220 G G$RADO= 000020 KIPORS= 172306 
CKEMAX 017362 CSREFG= 000047 EsEND = 002100 G$XFER= 000004 KIPOR4= 172310 
| CKMSG 011440 G CS$RESE= 000033 ESLOAD= 000035 GSYES = 000010 KIPORS= 172312 
CKMSG2 011560 G CSREVI= 000003 FATERR= HIADOR= 001400 KIPOR6= 172314 
CKRAM 011174 G CS$RFLA= 000021 FATFLG 002214 G HOE = 1 G KIPOR7= 172316 
CKRAM2 011304 G CéRPT = 000025 ERCM 012002 HPM1 105516 KTENAB 003126 G 
CMDPKT 021274 G C$SEFG= 000046 FIFEXP 012250 G HPM2 105552 KTFLG 003124 G 
CMPMEM 017740 CS#SPRI= 000041 FIFIMS 012322 HPMS 105576 KTINIT 021070 
CONFIG 017350 C#SVEC= 000037 FIFQMS 012371 IBE =* 010000 G KTOFF 017354 
COUNT 392 G C$TPRI= 000015 FILLME 017502 IdU = 000040 G KTON 017336 
CSRADD a G DATA 002304 G FNOINT 211 IER = 020000 G LERRMA 002164 G 
CTAB 003156 5 DATASC 020312 F R 002170 G IFAULT 004252 LISTAL= 1 
| CTABE 003170G 011712 FREE 003116 G INCERK 017124 LOE = 04 G 
| CTABM 003156 G DEVCNT 002212 G FREEHI 003122 INTCPC 016230 LOOPCN 002210 G 


ee LLY 


Ge 
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LOOPCO 013206 1.10001 002170 L10073 105472 OSERRT= 000000 PST32W 003144 G 
LOOPFL 003154 G L10002 005762 L10074 102132 OSGNSW* 000001 PUNIT 022320 
LOT = 000010 G L10003 012124 L10075 105516 OsPOIN® 000001 Pw.011= 000021 
LsAcP 002110 G L10004 012142 L10076 105636 O$SETU= Pu.013= 000022 
L$APT 002036 G L10005 012160 014034 G P 0220670 Pw.022= 000020 
LsAU 022366 G L10006 012166 MEMCK 021312 G PATCH 105776 G PW. NOP = 

L$AUT 002070 G 10007 MENASC PATDAT 020310 PW.NOL= 000023 
L$AUTO 022572 G L10010 012222 MENERR 020454 PC.ERA= 002400 PW.RDE= 000024 
L$CCP 002106 G L10011 012246 MENRES 020556 PC. IER= PW.ROR= 000001 
LSCLEA 022652 G L10012 012320 MMVEC = 000250 .NOO= 001000 PW.ROS* 000005 
L$CO 002032 G L10013 012470 MSA.FR= 000006 PC .REL = 000000 PW.RFI= 000003 
L8DEPO 002011 G L10014 013204 MSA.NO= 000000 PC.REW! 000400 PW.WCT= 000006 
L$DESC 003402 G L10015 014032 MSA.NR= 000004 PKBCNT= 000006 PW.WFI= 000004 
L$DESP 002076 G 1.10016 014054 MSA. VO= PKHI = 000004 PW.WFM= 000007 
L$0€VP G L10017 015560 MSGEXP 012224 G PKLOW = PW.WMI= 000010 
L$DISP 002124 G L10020 015566 MSGLOO 013144 G PKTADC 007632 PW.WNP= 000011 
L$DLY 002116 G £10021 015574 MSGSTA 012430 G PKTFRM 007574 PW.WTR= 000002 
LsoTP G L10022 015606 014022 G PKTGET 012144 G P.ACK = 100000 
LSDTYP 002034 G L10023 015630 MS.ATT= 000006 PKTMES 012170 G P.CMD = 000037 
Ls0U = 02 G L10024 015656 MS.EXT= 000200 PKTRAM 004741 G P.CONT= 000012 
L$DUT 002072 G L10025 016016 MS.RSD= 000001 PKTSSR 012126 G P.CVC = 040000 
L8DVTY 003374 G L10026 016326 “RSF = 000020 T = 001000 G P.FMT = 000140 
LS€F G L10030 022316 MS.RST= 000010 PRAMPK 014056 P.FORM= 000011 
LSENVI G L10031 M2186 005550 PRASC 014603 P.GETS= 000017 
LSETP 002102 G L10032 022570 M8189 1 015550 P.IE = 000200 
LSEXP1 002046 G L10033 022650 NBA = 002000 015416 P.INIT= 000013 
LSEXP4 002064 G L10034 022676 NEWPAS 015552 P.MODE= 007400 
LSEXPS 002066 G L10035 023140 NODEV 003106 G PRBTOT 015503 P.OPP = 

LSHARD 105476 G L10036 032262 NOINIT 004331 PRBYTE O01 G P.POSI= 000010 
L$HIME 002120 G L10037 024124 NOINTR 004215 Is P.READ= 000001 
LSHPCP 002016 G L10040 NOITS 002162 G PRIADD 010236 P.SWB = 010000 
LSHPTP 002022 G L10041 025372 020614 PRIAO 306 P.WRIT= 

L$Hw 002150 G 110042 026214 005454 PRIBXO 007670 G P.WRTC= 000004 
L$ICP 002104 G L10043 041360 NP.IR = 000200 PRIEQU 010136 P.WRTS= 

L$INIT 021572 G L10044 03 NP.LOO= 000040 PRIPKT 007446 G 002176 G 
L$LADP G L10045 035310 NP.OUT= 000100 PRIRAM 010144 RAMASC 014236 
LSLAST 106404 G L10046 035704 .WRP = PRITAD 010352 RAMDAT 234 G 
L$LOAD 002100 G L10047 036370 NSI 004146 PRITSS RAMERR 015570 G 
LSLUN 002074 G L10050 046716 NSINIT 3 PRITO 010434 RAMEXP 0715610 G 
LSMREV 002050 G L10051 NUL 004523 PRIT1 010477 RAMFOR 010174 
LS$NAME 002000 G L10052 043064 NULCR 004524 IxXOR 0 G RAMSIZ 002274 G 
L$PRIO 002042 G L10053 052774 NXM = PRIOO = G RAMTAD 015576 G 
LS$PROT 021562 G L10054 047572 NXMFLG 003130 PRIO1 = G RCVHIA 002276 G 
LSPRT 002112 G L10055 NXMHI 003134 G 102 = 000100 G RCVLOA 002300 G 
L$REPP G L10056 051216 NXMLO 003132 G PRIO3 = 000140 G ROERR 

L$REV 002010 G L10057 055770 NXMTST O21 PRIO4 = 000200 G RECMSG 002460 G 
L$RPT 022700 G 10060 36 NXR 003734 PRIOS = 000240 G RECV 002226 G 
L$SOFT 105630 G L10061 063342 NXRERR 005732 G PRIO6 = 000300 G REGSAV 020220 
L$SPC G 10062 NXRX 003773 PRIO7 = 000340 G RETERR 005 
L$SPCP 002020 G L10063 073272 NXTU 022036 PRMESS 014322 REWIND 011074 G 
L$SPTP 002024 G 110064 L = 000100 002312 G RMCHBE= 000167 
|LSSTA 002030 G L10065 065514 ONEFIL= 000000 PRMSGE 014632 G RMCHEN®* 

L$SW 002160 G L10066 066356 OSAPTS= 000000 PRMSGO 015012 RMMSGB= 000215 
LSTEST 002114 G L10067 067260 OsAU = 000001 PRMSG1 015057 RMMSGE= 000234 
LSTIML 002014 G L10070 101046 O$BGNR= 000001 PRMSG2 015115 RMPKTB= 000201 
L$UNIT 002012 G L10071 074366 O$BGNS* 000001 PROASC 014500 RMPKTE= 000210 
L10000 002156 L10072 075450 0s0U = 000001 PRIASC 014545 RHR = 010000 
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3 


SO. ILD= 


011170 
10000) 


ang 


on 


fs 
AHAHH 


~oOo 
Hoon OH © AH 


HOHOHHHOA 
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TSEXCP= 


010001 


026412 


an 


T318S1 


037771 
036561 
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T378S1 


102321 


SEQ 0228 


TSV6 - hag CODING MACRO M1113 
TABLE 


SYMBOL 


444 
ww 
28 
g 

en 


4 
3 
w 


ip 
w 
2 
4 
ft 


« 
uw 
“x 
6 


106404 


000000 
ERRORS DETECTED: 
VIRTUAL MEMORY USED: 30328 WORDS ( 119 PAGES) 


DYNAMIC MEMORY : 
ELAPSED TIME: 00:36:0 
| CVTSOC, CVTSOC/ - SPeSVE/ML, TSV1D, TSV22D, TSV38, TSV4, TSV7B, TSV6 


2 


T37WSS 104 
T4 046720 G 
T4.1 046750 
14.2 047610 
14.3 050420 
TS 052776 
T5.1 0530. 
T6 055772 G 
T6.1 056022 
17 063344 G 
wT .8 063374 
17.2 
17.3 065532 

000 

001 

0 


oe — ( 79 PAGES) 


14-JUN-84 16:41 


Bs 
g 
3 


4R 
WRTCHR 010742 
WRTERR 005107 
WRTMSG 005052 


J2 


X$FALS= 


X$OFFS= 


SEQ 0229 


